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ABSTRACT 


A microprocessor controller of a five axis NC machine with 
three simultaneously controlled axes has been designed. The 
system accepts a set of G~code instructions and drives the 
machine accordingly. The software and hardware have been 
implemented and tested successfully; the machine being simulated 
by a plotter. The plotter has been used in the incremental mode. 
The hardware consists of a SDK-86 kit, based on the intel 8086 
16 bit microprocessor, a CRT with keyboard and the plotter. The 
software has been written in the PLM-86 language and developed 
in the MDS series III system and implemented as firmware in 
EPROM's. Some illustrative examples showing how the system can 
be used are also given in the present work. 
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CHAPTER I 


INTRODUCTION 

1 .1 Classification of NC Systems 

After the introduction of NC machines which consisted 
only of hardware and accepted the punched paper tape as input, 
the mechanical automation was increasingly replaced by computer 
automation in NC machines. This led to the invention of a wide 
variety of NC systems. As these new types of machines were 
widely used, more tasks arose v\hich encouraged the adoption of 
small or large computers to take full advantage of the possi- 
bilities offered by the concept of numerical control* 

Initially computers were used off-line to compute the 
interpolations, offsets etc. But, as microelectronics deve- 
loped fast, NC machines became available with a special-purpose 
computer to compute for a group of several machines. Nowadays, 
with the advent of microprocessors manufacturers are able to 
integrate the computing functions within the NC machines. As 
computers became common place, high level part programming 
languages and compilers were available. Now, there are NC 
machines which have the part programming interpreter built into 
the machine itself, which eliminate the need of using a main- 
frame computer for less complex computations. 
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Initially, the large installation and maintenance costs of 
the computers forced the users to control many NC machines 
through one large computer. This system is called as direct 
numerical control (DNC) [2,3]* 

Controlling one NC machine through a special purpose 
computer is called Computer Numerical Control (CNC) [2,3]. The 
CNC needs just enough memory and l/O ports needed to store 
utility programs and user programs and to communicate with 
the machine tool. Hence the cost is less compared to DNC 
systems. Though small in its class, the micro -computer in a 
CNC system has enough memory storage eliminating the need for 
the punched tape, and providing some editing features as well 
as a cathode ray terminal (CRT). More programs for diagno- 
stics, debugging, self-test etc., are also implemented in the 
CNC machine. 

When the special purpose computer used in the C3^C system 
is replaced by a microprocessor system, as it is being increa- 
singly done* it becomes a micro -computer numerical control 
system. This system offers the advantages of low cost, relia- 
bility, low maintenance costs, and small space [l]. 

CNC and DNC are really forms of computer aided manufa- 
cturing (CAM). More frequently the system is' also used for 
collecting management information like, the number of parts 
made, down time, set up time and types of machine failures. The 
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same system can be used for scheduling and inventory control. 

When a computer is used to design the parts, with the 
help of an interactive graphics hardware and software, the 
process is called computer aided design (CAD) [2]. The design 
then will lead to automatic simulation, analysis and evalua- 
tion. This computer can then deliver the design to the CMC 
machine in some machine readable form, with tt^ help of a 
part programmer. In such a case, the limitations imposed 
by the small memory storage and computational capability of 
CNC or micro-computer NC machines can be overcome with the 
addition of a communication link with a CAD environment. This 
link can be a simple RS-232C link or current loop or a tele- 
phone line with a modem at each end. 

Such a link increases the possibilities of complex 
machining operations. Also, if the mainframe computer is 
networked with other computers, the design by a CAD environ- 
ment elsewhere can be used by the local Ca^C machine easily. 

Use can also be made of the mass storage media of the main- 
frame computer, to store the developed part programs. 

1.2 Development of Microprocessor Systems for NC 

With the advent of microprocessors the computing systems 
for the NC machines are being implemented with fewer chips, 
with fewer interconnections and hence with higher reliability. 
The cost versus performance ratio of microprocessors has been 
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on the decrease ever since the introduction of the first gene- 
ration of microprocessors, i.e., intel 8008, in the year 1971 
[l] concurrently the memory chips, peripheral chips and other 
logic chips have been improved in performance, reliability and 
cost. Now 16-bit and even 32-bit microprocessors are available 
so that the computations which were earlier done in a large 
computer can now be done in the 040 machine itself. 

Present day microprocessors fulfil all the requirements of 
the 04C machine, like speed, memory capacity and computational 
capability. Even the generation of the timing signals and the 
feed frequency can be realised through the software in the laP 
system. If more computational time is needed for arithmetic 
operations, it is possible to use one or two peripheral chips 
to do the same job of controlling the drives. The development 
of the system is based on the considerations like the maximum 
cutting speed, the number of simultaneously controlled axes, 
the interpolation accuracy needed and the interaction between 
the user and computer. Based on these, a compromise is struck 
between software and hardware to optimise speed and cost. 

The iJp system for NC is designed after finalising the 
hardware-software compromise. The hardware consists of the CPU, 
control chips (if needed), memory, Input/Output chips and the 
drive interfaces. The basic hardware can be tested with the 
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help of a logic analyzer. The software is developed con- 
currently in a micro-computer development system (MDS) . The 
bugs can be removed using the debugging package in the MEiS . 

Then the software is written into or ’burnt’ into EPRCM memory 
chips and can be installed in the hardware. The MDS has an 
in-circuit-emulator (ICE) which is used to debug the hardware 
and software simultaneously. After the hardware and software 
are ready, test data can be input into the microcon^uter and 
the system performance evaluated. 

1.3 Point-to-Point and Contour Programming 

There are two types of numerical control, each used for 
a different kind of machine operation. One is called point- 
to-point, or positioning control, and the other is called 
contouring, or continuous path numerical control [2,3]. 

In the point-to-point numerical control the cutting tool 
or the work table is moved to a specific position as called 
for on the part program and an operation like drilling of a 
hole is performed. A simple drilling machine follows this 
type of control. The exact path taken by the tool is imma- 
terial, and only care should be taken such that the spindle 
does not collide with either the part or the holding fixtures. 

Unlike the point-to-point control, contouring control 
requires that two or more motions of the machine be simulta- 
neously and precisely controlled. In the contour control, each 
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incremental movement must be described together with its 
feed rate nunriaer. The entire travel must therefore be con- 
trolled to close accuracy both as to position and velocity. 
Milling machines are proven to be the popular application of 
continuous path numerical control. Most contouring machines 
move only in straightline movements and the circular and 
other cuts will be broken into short straight line segments. 

The breakup of a curve into these straight line segments is 
one of the major time consuming requirements in contour pro- 
gramming. Another calculation required is describing the 
path of the center of the cutter rather than the actual part 
contour dimensions. This is called the offset calculation. 

The problem becomes conplicated as the number of simultaneously 
controlled axes increases. 

The contouring machine has at least the linear interpola- 
tion capability. The interpolation is done either in the 
hardware or through software. The velocity along the cutting 
path should be constant irrespective of the direction of travel 
The straight line is split into a number of small segments and 
each segment is travelled in a fixed time interval, so that the 
timing frequency determines the velocity of the tool cutting. 
The timing frequency is varied according to the feed rate 
required. 
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1 Objectives and Scope 

In this thesis, design of a microprocessor based five 
axis NC machine is described. The experimental set up and 
the program controlling it are also described. The objective 
of the work is to develop a base for a microcomputer contro- 
lled machining center. Though the design is now for only G- 
code input, the design is done with the view of future work, 
like implementation of a part programming language conpiler/ 
interpretter with more interactive programming. The experi- 
mental set-up takes the G-code sequences as the input through 
the CRT and processes them to generate the control signals and 
information required by the drive system to move the tool in 
the required path. The set-up also generates additional sig- 
nals like coolant on/off signal, spindle speed change infor- 
mation, spindle direction signal, annunciator signals, etc. 

The set-up senses various switches like manual positioning 
switch, emergency stop switch, hold switch, program reset 
switch etc., and takes appropriate action. A plotter version 
of the set up which controls the movement of a pen in a two 
axis plotter is also described. 
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CHAPTER 2 

DESIGN OF THE \iP CONTROLLER 

2 .1 Description of experimental set up 

The microprocessor chosen for this particular application 
is the 16 bit Intel 8086. The selection was based on the 
following considerations : 

The system should be capable of being modified in 
future to have more options and high level part programming 
language implementation. 

It should be fast enough to do real time interpolations 
like for circles and complex curves in future. 

The system should be designed and the software, hardware 
debugging should be done locally. Because of the availability 
of the microcomputer development system for the Intel products, 
Intel 8086 [4] was chosen to be used as the central processing 
Unit. 

The availability of the high level language PLM encouraged 
all the software be written in a highly readable form. The 
SDK-86 Kit [5] was used in place of the basic microcon^>uter 


hardware* 
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The RS232-C interface using the 8251 SIO chip is used 
in the set up to the data entry and display functions through 
a CRT monitor. The program is input through the keyboard 
with the help of a small editing facility provided in the 
software. After all the data are entered, the CRT displays 
the final version of the G-code sequence and waits for a go- 
ahead signal for machining, from the operator. When it is 
given, the machine starts moving the table according to the 
instructions in the G-code seqi-ence. 

Provisions in the software allow a paper tape reader to 
load the G-code instructions direct to the memory from a paper 
tape. 

The in tel 8253 timer/counter chips [4] are used to gene- 
rate the feed frequencies for stepper motors which drive the 
table and also to count the number of pulses fed to the stepper 
motors. Each of the two 8253 chips contain three programmable 
timer/counters. Each of these can be programned in a wide 
variety, of modes. 

In this application two such chips are used, one for gene- 
ration of the rate signals for the stepper motors which control 
the velocity in each direction and the other is used for count- 
ing the steps in each direction and stopping tte pulses fed to 
the stepper motors when the correct number of steps are done. 
The first chip's three timers are programmed in mode 3 #iich 
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is a square wave generator mode . Each of the 16 bit timers 
are used for a separate axis (X,Y or Z) . The second chip’s 
timers are used in the mode 0, that is, interrupt on terminal 
count mode. The data corresponding to the number of steps to 
be taken in each direction is programmed into each of the three 
16 bit counters. 

The principle of operation is described as follows : 

When it is required to move the tool from (XI, Yl, Zl) 
to (X2, Y2, Z2) at a particular feed rate F, the conponent 
rates at each of the X,Y,Z directions are different depending 
upon the values of (x2-xl), (y2-yl) and (z2-zl) and F. These 
velocity components are calculated and accordingly the rate 
generators (i.e., the timers 1,2 and 3) are programmed to 
these velocities as accurately as possible. Any inaccuracy 
in calculating the velocities should not offset the end 
arrival point. For this, the steps in each direction are 
counted and when all the steps in one direction are done, 
the pulses to that, stepper motor are blocked by the output 
of the corresponding counter 1,2 or 3* To get this 3-D 
linear interpolation practically accurate, it is often 
necessary to break the long straight line into small segments 
and programming the counters for these segments. This way 
the tool travel path is kept almost linear. 
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The block diagram for the experimental set-up is shown in 
Fig. 2.1. The detailed schematic for the timer interface is 
shown in Fig. 2,2. 

To generate the various auxiliary function signals and 
to read the various manual switches the 8255A Programmable 
Peripheral Interface (PPI) [4] chip is used* Each chip 
consists of three eight-bit ports which are software progra- 
mmable to be configured as inputs or outputs or bidirectional 
ports separately. For the purpose of demonstration, sinple 
LED indicators have been used to show the levels of the output 
port's signals which correspond to the auxiliary functions. 

Also the direction signals for the stepper motors are output 
through the 8255A ports. The 8255A interfaces are shown in 
F ig . 2 .3 , 

Vi/e shall discuss the design and schematic of the drive 
system and interfaces in detail in the next section. 

2 .2 Drive System and Interfaces 

The drive system for each axis consists of a stepper 
motor, a power driver and a sequence generator. The sequence 
generator accepts the rate pulses from the 8253 timer and the 
direction information from one of the ports of the ^55A PIO 
interface. The stepper motor driver is shown in Fig . 2,4, The 
sequence generator is shown in detail in Fig. 2.5. 
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The sequence generator consists of two D type flip-flops 
and two exclusive ’Or* gates as shown in Fig. 2.5. The sequencj 
of excitation for forward (dir = 1) and reverse (dir = 0) is 
shovm in Table 2.1. 

Table 2.1 


Direction 

Dir 


Sequence 

for 

AB 

Forward 

1 

00 

01 

11 

10 

Reverse 

0 

00 

10 

11 

01 


The sequence generator changes states at the rising edge 
of the clock pulses coming from the 8253 timer. The 'dir' 
signal is coming from Port A of 8255A chip No. 2. The outputs 
A and B are inverted and available as A and B to be amplified 
by the driver amplifier shown in Fig, 2.^4. 

The driver amplifier should be capable of handling the 
maximum load current of the stepper motor. 

The power transistor 2N3055 was selected to drive the 
motor coils vfnlch draw a maximum current of about one ampere* 

To provide the necessary drive current at the base of the power 
transistor which is around 15m Amp, one SK 100 transistor stage 
is provided. The SK 100 transistor is driven by the 7406 open 
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collector inverter. So when the input to the inverter is 
high, the SK 100 transistor enters saturation. This in turn 
switches the power transistor ON causing current to flow in 
the appropriate coil. Due to the high inductance of the coils 
when switching takes place the current through them cannot 
vary as fast as the voltage. Hence the transistors may get 
damaged due to the excessive currents. To overcome this 
problem, it is mandatory that we provide some alternate path 
for the currents to flow. Usually this path consists of a 
diode in series with a dissipating resistor, connected as 
shown in the circuit diagram in Fig. 2.4. 

Since the experimental set-up has a small two axis 
mechanical table, the motor selected is of 2 kg-cm torque 
with 200 steps per sec speed and 200 steps per revolution. 

The stepper motor is used in this system because its posi- 
tional accuracy is good and no incremental error is involved. 
The disadvantage is that when a step is applied, the shaft 
oscillates about the final position before settling down. 

This problem can be ignored because when pulses are applied 
in rapid succession, the oscillations do not show up. Also the 
load tends to dampen the oscillations [6]. 

The timer/counter interfaces and Input/Output interfaces 
were discussed in the previous section. 
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2 *3 Plotter Version 

Because of mechanical problems resulting from poor align- 
ment of the leadscrews the mechanical table with two axes 
exhibited considerable amount of friction, it was decided to 
demonstrate the software with the help of a plotter. The 
plotter to be used has a RS232-C interface through which our 
microcomputer can send commands for movement of the pen in X, 
and Y axes. Though the plotter has inbuilt linear interpola- 
tor and circular interpolator, to simulate the stepper motor 
version, use is made only of the incremental commands of the 
plotter. The command relevant for incremental motion is ‘T* 
or *D’ followed by several ASCII characters as given in the 
Table 2.2. Use is made only of the +X, -X, +Y, -Y direction 
movements only. Tool movement in Z direction is restricted 
only to up/down positions and simulated in this set up as the 
pen up/down positions. 

A second version closely approximating an actual NC system 
can be implemented using two output ports and two Digital to 
Analog Converters (DAC). The outputs from these two DAC' s can 
be fed into the X,Y amplifiers of the Servogor plotter which 
has a feedback loop with the well known potentiometric principle. 
Use can be made of the DAC SO (12 bit) chip. 
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Since the program is highly modular the ’MOVE’ subroutine 
only needs to be modified to suit a particular drive type. The 
original software was modified to suit the plotter version and 
this shows the flexibility of the system. 

2 .4 Design Considerations 

We have already discussed the considerations which led to 
the selection of the 16 bit microprocessor intel 8086. The 
stepper motor drive system was selected because of the non- 
requirement of feedback since it has no positioning error-. 

The motor has a torque capacity of 2 kg-cm which suffices for 
our application, i.e., driving the two axis, small milling 
machine table. 

The future modifications . and expansion were taken into 
account while designing the software. The software was made 
flexible such that it needs only small modifications to suit 
a new drive system. So the drive system dependant part 'Of- ;the 
program was to be put into one subroutine so that only that, 
subroutine needs to be modified to suit the change in the drive 
system configuration. If need arises the whole software can be 
easily transferred to another type of microprocessor system, say 
Zilog 80, because the progr^ was written in PLM-86 language. 
The selection of PLM language itself was based on the fact that 
most microprocessor development systems have the PLxM compiler. 
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CHAPTER 3 

SOFTWARE DEVELOPMENT 

3.1 G~Cod6 s 

The concept of the numerical control is that the NC 
machine is provided with the displacement information hy way of 
numbers [2,3], But no machine slide can be moved by numerical 
values alone. There must be some way of telling the NC machine 
the relevance of each numerical data. This is done by sending 
an alphabetical letter preceding each numerical information. 

The first important matter is the symbols for the directions 
of the axes. Then the information like spindle speed, tool 
number, feed rate number, miscellaneous functions, preparatory 
functions etc., are to be identified with a letter called : 
‘address*. The relationships between the letters and machine 
functions are given in Table 3,1, In addition to the letters 
there , are the. decimal numbers and the two signs. ’ + *. and ‘-r* , 
to represent the numerical data. Some special symbols and 
control symbols are required for building up the program. They 
are listed in Table 3,2, These conventions are from EIA 
standards [7], 

The preparatory function ‘G* specifies additional infor- 
mation to the coordinate dimensions and the type of operation 
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Table 3.1 


Symbol 

Meaning 



A 

Rotation about X axis 



B 

Rotation about Y axis 



•; c- 

Rotation about Z axis 



F ; , 

Feed number 




Preparatory function 



I ■ 

Interpolation parameter or 

thread pitch parallel to 

X axis 

j 

it ft 


Y axis 

K 

■I f, ' it 


Z axis 

M 

Miscellaneous function 



N V 

Sequence number 




Spindle speed function 




Tool function 


■ ■' ■' ■■■ ■■ ■ ’ 

X 

Movement in the direction 

of X 

■axis 

- Y' -. 

II t 1 

Y 

axis' . : ' :: • ■ 

' • 2 • 

II 11 

Z 

axis. 
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Table 3.2 

Special symbols and their meaning 


Symbol Meaning 


'A Start of program, also rewind stop 

; Block delimiter 

LF End of sentence 

HT Horizontal tabulator 

CR Carriage return 

SP Space 

/ Sentence suppression (Block deleter) 

DEL Character deleter 

+ . . V; -Plus-" 

Minus; , 
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to be done. The preparatory function thus forms part of the 
dimensioning. The G code has tw digits. The meaning of 
important G-codes are indicated in the Appendix I. 

In addition to the preparatory functions, there are 
auxiliary functions represented by the address 'M' followed . 
by a two digit code. An auxiliary function is a function of 
an NC machine other than the control of coordinates of a 
workpiece or tool. It includes functions such as spindle 
stop, coolant on, coolant off, damp, unclamp etc. These, 
are called miscellaneous functions and they are explained in 
detail in Appendix I. 

3 .2 Propram Description 

The entire software is written and debugged in PLli high 
level language. Because of the modular programming features, 
of PLM, the program consists of relevant modules performing 
a specific operation, making the program readable. 

The flow of the program is as given in the flowchart 1 
of the Appendix II. The program listing, alongwith cross 
reference listing, link map' and load map is given in the 
Appendix III . We shall now. discuss the program in detail. 

Main Program 

On system reset, the program first initializes the various 
interfaces used in the system. Then the buffers used for 
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storing the G-code sequence, co-ordinates and other 
scratch data are initialized. 

Then the program control transfers to the subroutine 
which in turn reads in the G-code sequence in free format, 
typed in by the programmer through the CRT. After the typing 
is over, the stored sequence of G-code is displayed for veri- 
fication. The data entry can be through the tape reader also. 

Then the G-code instructions are executed one by one, 
after receiving a go-ahead signal through CRT. The control 
branches to any one of the G-code subroutines based on the 
value of G-f unction of the current block of code. 

In the middle of the program the program may wait for 
some operator response after displaying some message like 
requesting change of tool etc. The machine can be stopped 
in the middle by emergency halt switch. After executing all 
the blocks , i»e. , after encountering an end of file character 
in the input data, the program asks for instructions from the 
operator whether another part has to be machined or a new 
part program to be accepted. 

Description of Utility Subroutines 

'INITI.AL 8251' and 'CHAR§{RDY' are procedures used to 
set the 8251A in asynchronous mode and to find the status of 
the character buffer of the 8251A, respectively. '01JT§(CHARV 
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’ GET§^CHAEl’ outputs a character to the monitor and inputs a 
character from the keyboard respectively. ’OUT^BLANK* 
outputs a blank or space and ’OUT^CRLF* outputs a carriage 
return and line feed. 

The procedure 'OUT§(STRING* is frequency used to display 
error messages and other interactive instructions in the CRT 
monitor. This procedure uses a pointer to the message data 
and keeps on outputting the character pointed to, by the 
p Gin ter, simultaneously incrementing the pointer, till the 
data pointed to is 0. This module uses 'OUT^CHAR’ and 
•OUT^SRLF' procedures. 

Function CHK^VALID returns true if the character is an 
address for a specific function , i .e . , N,G ,X,Y,Z, A,G,I , J ,S,Fy 
T or M, and returns false if it is not a valid function. 
Procedure 'GET?»DATA’ stores one block of G-c ode sequence into 
:the buffer ‘BUFFER’, which is pointed to by ‘INDEX’ . The ; 
input to this procedure is ' FILE^DATA* with a pointer ; 

■’ FILE^^INDEX’ ■ ■ ' . 

Procedure ’ INITIAL$^DATA’ initializes the buffers for 
the past and new values of the codes and coordinates. Pro- 
cedure ‘STORE^FILE’ reads characters from the CRT, with faci- 
lities for line editing, and stores them in the 'FILE^JDATA' 
array. Each of the G-code blocks is separated by a semicolon 

and the entire file is ended by an ESCAPE character. 
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The procedure GET5^NEWS^CX}DE gets the new values of codes 
into the respective arrays through the use of procedures 
’CODECS*, ‘C0DE^2' and • CODEWORD' . If a character other 
than the standard codes is encountered, a warning message is 
given and the processing continues. The most important pro- 
cedure in the software is the ‘ACTION* procedure , viiich takes 
appropriate actions according to the G and M functions. This 
is also the only part of program which needs to be modified 
to suit another drive system. In the stepper motor version, 
the action procedure programs the counters and timers of the 
X,Y,Z,A»C axes and also the direction signals for them. 

Various auxiliary functions like spindle speed selection, 
coolant on coolant off, tool changing, clamping etc. , are 
also looked after in this procedure. 

Whereas, in the plotter version, instead of the progra- 
mming of the counters and timers, various characters as required 
by the plotter (Table 2.2 lists them) are output to -tile, plo- 
tter to effect the pen movement in X and Y axes. In the second, 
variation of the plotter version, the X and Y voltages can be 
given to the plotter instead of the instructions through the 
plotter's RS 232-C interface. Other functions are programmed 
as for the stepper motor version. 
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3.3 Interface to Computer (Software) 

The microprocessor based NC machine can communicate with 
a mainframe computer to receive the G-code sequence directly 
from the computer. The same software except for some minor 
modifications can be used to interact with the computer. In 
that case the CRT terminal will be replaced by the RS232-C 
port of the computer. The main modifications to be done are 
as follow : " 

Firstly the interactive part program entry is to be 
romoved. Also we expect the computer to give error free final 
version of the G— code sequence. So the checking of the chara- 
cters as they come through the serial link is not needed. The 
part of the prog ram which displays the final version of the 
G-code sequences can be removed. Only the error messages and 
warning messages» are to be sent to the computer. Functions 
like tool changing , clamping and unclamping should be automa- 
:'^ted . Tool number can be output through a port vtixch can be' •, 
used by the automatic turret to select the specified tool. The 
workpiece can be clamped automatically by means of electro- 
magnetic or some other type of clamps. After the machine 
finishes the machining of the job, the NC machine sends a 
prompt indicating the computer that it needs instruction for 
machining one more piece of same part or for receiving new 
G-code program for a new part. The functions like hold etc.. 
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can be displayed by means of LED annunciators. The current 
statement number may also be displayed by means of seven 
segment LED displays. 

3.4 Interface to. Computer (Hardware) 

The same RS23C-C port Can be used for communication with 
the computers The connection diagram is as in Fig. 3.1. 

additional port is needed to output the tool address, 
since the tool has to be changed automatically. For this 
port B of the 8255A (1) can be used as illustrated in the 
Fig. 2.2. One more port may be used to indicate the status 
of the NC machine, viz.. Hold, temporary hold, dwell or stop. 

3.5 Lihear and Gircular Interpolation Algorithms 

Linear Interpolation ; The sof tware DDA algorithm described 
in [12] is implemented for the linear interpolation. The 
.digital differential analyzer (DDA) method is an interpolation 
procedure which was developed for .use in hardware interpolation. 
This method requires, successive additions in order, to create 
interpolated points and is therefore ideally suited for assem- 
bly language simulation. The rate at which the pulses to each 
axis are sent is controlled by a programmable frequency source, 
whose output is connected to the interrupt pin, thereby contro- , 
1 ling the feed rate to the required level. The algorithm opera- 
tes as follows, and also as expressed by the flow chart i'>o.3, in 
jfi^pendix II. 




II 
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First, the distances to be moved in X and Y directions 
(positive or negative) are calculated. The signs of X and Y 
directions are determined and output. The distances in Basic 
Length Units (BLU’ s) are added to give M, which is the total 
number of pulses to be output in both the directions together. 

A function f(x,y) is calculated and updated after each pulse 
is output. This function is initially zero and becomes 
F+delx or F+dely depending upon the last pulse output is in 
X direction or in Y direction^ delx is equal to -dy where dy 
is the distance moved in y direction and dely is equal to +dx 
where dx is the number of pulses to be given to X axis motor 
(distance moved in BLU's). When the function f changes from 
negative to positive pulses are given to the Y motor and when 
the function f changes from positive to negative, pulses are 
given to the X motor. When all the required pulses are given 
to the motors, the interpolation ends. This method of linear 
Interpolation is ideally suitable for inplementation in 'assem- 
bly language in microcomputers and also for the reference 
pulse interpolators. 

Circular Interpolation Implementing circular interpolation 
in a microcomputer controlled system is not easy [8]. It must 
be done to a guaranteed accuracy regardless of the radius^ 
within an allowed amount of time. Previously the circular 
in torpolation was done in hardware [12], and, with the advent 
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of microprocessors the interpolation was implemented in soft- 
ware for want of accuracy and flexibility [9,10]. The approach 
can be in two distinct directions: the reference pulse inter- 
polators [ll] or the reference word interpolators [l3] . The 
reference pulse interpolators are simple to inplement and are 
accurate enough. But the reference word interpolators are 
complex if accuracy is needed. Since one segment rather than 
the immediate neighbour point of the curve is calculated at 
each iteration, the curve is generated with fewer iterations, 
though the iteration itself may take more processor time. 

Since our need is limited to a few thousand BLU’ s per second, 
(v\hich is due to the nonavailability of faster step motors 
with higher torque) / the first method, i.e. , reference pulse 
interpolators is implemented in our system. A detailed study 
■of various interpolators of i the first method had been done in 
[ll]. A simple algorithm for the second type of interphiation 
is described in [S] . Of the four types of .reference pulse 
interpolators that Koren, Y [11] describes', the improved direct 
search method was found to be accurate and also appropriate 
for our system and hence it has been implemented in our system. 
The error involved is l/2 BLU maximum. The algorithm first 
evaluates the direction of each axis movement and the distance 
to be moved and the centre of the circular arc. A function D, 
similar to that used in linear interpolation is evaluated for 
three possible increments : in X direction , in Y direction and , 
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in X and Y direction. This function is proportional to the 
errors caused because of the corresponding movements. Then 
decision is taken as to v\hich path is to be taken^based on the 
three error functions d^, d^ and d^* Then the pulses are sent 
to the appropriate axes. This completes one iteration. The 
iterations end when the computed point passes [lO] the final 
point. The algorithm is illustrated by means of the flow 
chart 4 of the appendix II. 
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CHAPTER 4 
TEST EXAMPLES 

^ Example No»l (Point-to-point positioning) 

This example illustrates how the NC system can be used 

t 

as a point-to-point positioning machine, i.e., like a drilling 
machine. The following G-code sequence is typed in at the CRT 
console . 

NOl GOO ; 

N02 G91x0 Y200 j 

NOS X300 Y400 ; 

N04 X300 YO ; 

NOS X500 Y-400 ; 

N06 XO Y-200 ; 

N07 X-1100 YO M02; 

The first statement- informs the machine that point-to- 
point programming mode be set, through the G-code G00. The 
second statement sets the machine in the incremental dimensioning 
mode (G9l) . The series of co-ordinates command the tool to 
move to the required points. The seventh statement implies that 
end of program is arrived (through the miscellaneous code M02) . 

The plotter output corresponding to the above set of 
commands is given in Fig. 4.1. One can see that the movement is 
such that it arrives at the end point in shortest possible time. 
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^ ^xanipl e_jjo .2 (Linear Interpolation) 

The second example illustrates the application of this 
NC system as a contouring milling machine with straight line 
cuts. The following G— code instructions are typed into the 
CRT console. 

N01 GOl ; 

N02 G91 X400 Y500 Z-50 ; 

N03 XO Y200 Z50 ; 

N04 X400 Y200 ; 

NOS X400 YO; 

N06 X60 Y-400 

N07 X-200 YO ; . 

NOB XlOO Y150; 

N09 X-300 YO ; 

NIO XlOO Y-150 ; 

Nil X-500 YO ; 

N12 M02 ; 

The first statement informs the NC system that the 
movement of the tool should be in linear interpolation mode. 
The second line has G91 code which implies that the incremen- 
tal dimensioning was chosen. Then the successive endpoints . 
coordinates are given in the next lines. The last line has a 
miscellaneous function M02, which informs the machine that the 
end of program is arrived. 
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The plotter output ^ corresponding to the above. G-code 
sequence is given in Fig. 4.2. A step size in each direction 
of 0.1 mm is used in the system. ' 

4.3 Example No. 3 t (Circular Interpolation) 

The final example illustrates the system as a circular 
interpolating contouring NC machine. The following G-code 
sequence is typed into the CRT console. 

NOl GOO X400 Y500 Z50 } 

N02 GOl XO Y200 Z50 ; 

N03 X200 YO ; 

N04 G02 X200 Y200 1200 JO ; 

N05 G02 X200 Y200 10 J200 ; 

N06 GOl X200 YO ; 

N07 XO Y-200 ; 

NOS X800 YO ; 

N09 M02 ; 

The first statement positions the tool (pen) at bottom left 
corner of the workpiece. Statements 2 and 3 move the tool in 
linear interpolation mode. The fourth statement commands the 
machine tool to take a clockwise circular path. This moves the 
tool through one quadrant of the circle. The next statement 
moves the tool through another quadrant. Stateiwsnts 6 through 8 
moves the tool in linear interpolation mode. The machine stops 
when it encounters the program end (M02) auxiliary function. 




Fig. 4.2 Linear Interpolation 
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The plotter output corresponding to the above example is 
given in Fig. 4.3, It is to be noted that at a time the tool 
can be commanded to move through only one quadrant of a circle. 
The direct search method and other reference pulse circular 
interpolation methods have this limitation in common. 
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CHAPTER 5 

CONCLUSIONS AND SUGGESTIONS 

6 

5.1 Technical Summary 

The hardware and the software were tested successfully 
for the NC machine. The point-to-point positioning, linear 
interpolation and the circular interpolation algorithms are 
found to be suitable to implement on a refei'ence pulse QJC 
machine. Because of nonavailability of a stepper motor con- 
trolled NC milling table, it was decided to simulate the 
machine by a plotter. Use was made only of the plotter's 
+X, -X, +Y , -Y incremental mode commands and this approximated 
a stepper motor controlled NC milling table. 

The software is written in appropriate modules to suit 
future modifications. The whole program controlling the NC ‘ 
machine has been written in PLM-86 rather than in assembly 
language of Intel 8086, to facilitate partability* Sp, if need 
arises the system can be re-modified to suit another micropro- 
cessor. Since it was not intended to drive the plotter in real- 
time (since the communication with the plotter is through a 
slow serial link) , the reference pulse interpolation [ 11] or the 
reference word interpolation [13] technique was not really im- 
plemented, in the sense, that the microprocess sor is not inte- 
rrupted by the reference pulses at a frequency proportional to 
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the feed rate. This can be easily done with a programmable 
frequency source whose output is tied with the interrupt pin 
(INTR) and suitable changes in software. The interpolation 
routines are clustered into the subroutine MOVE, so that 
this subroutine can be used as the interrupt service routine. 
Essentially the movement in X,Y or Z should be made in syn- 
chronism with the reference pulses. A detailed study of the 
techniques involved is found in [ll], 

5 Suggestions for Further Vjork: 

The main theme of this project has been to design a full 
fledged CNC work station. The present work is the first step 
towards the work station concept. The gap between the small 
CNC work station and large QIC centers is becoming narrower 
day by day [9] , with miniaturisation and cost reduction in 
electronics. More and more facilities are included in the 
small work stations controlling a single NC machine. Based 
on the results of the present work the following suggestions 
are made for further work, to bring about the CNC machining 
center concept to practice : 

(1) An interrupt structure can be designed to implement the 
reference pulse interpolation, on a true multiaxis milling 


table , 
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(2) Presently the circular interpolation (G02, G03) is inple- 
mented in one plane only. The third simultaneously controlled 
axis can be also moved during the circular motion of the other 
two axes, to implement helical interpolation. 

(3) An algorithm can be devised to control the three axes 
simultaneously using DDA method. Mayorov F.V. [l2] gives 
insight into the DDA concepts. 

(4) A feedback loop can be incorporated with the instalment 
of resolvers and up/down counters to drive a dc motor contro- 
lled machine, with the help of D to A converters and appropriate 
drive amplifiers. 

(5) A floppy disk controller can be added to store the part 
programs. Also, more facilities can be included in the text 
editor. 

(6) With more memory added in the microcomputer system, a high 
level part programming language can be implemented in the- system 

The above suggestions are only a fQVj of the many possible 


ideas for future work, 
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APPENDIX I 


G-CODE CONVENTIONS 




Address Functions 

Character 

Function 



A Angular dimension around X-axis 

B Angular dimension around Y-axis 

C Angular dimension around Z-axis 

D Specifies tool offset and cutter compensation 

offset number 

F Specifies feed rate 

G Specifies operation mode (linear, circular etc. ,) 

H Auxiliary function (ON/OFF controls) 

I Interpolation parameter along X-axis 

J ’ ’ ' ' Y-axis 

K ' ’ ' ' Z-axis 

L Subprogram number 

M Auxiliary function (ON/OFF controls) 

N Sequence number 

S Specifies revolution speed of main spindle 

T Specifies a tool number 

X Basic co-ordinate axis (X-axis) 

Y ' ' (Y-axis) 

7 t I (Z-axis) 
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G-code Format used in this system 

The user should type in the G-code blocks each separated 
by a semicolon (’;’)• Any blanks, linefeed, carriagere turns 
and illegal characters are ignored and hence not stored. The 
user ends editing by pressing escape <ESC> key. 

Within a block, user can type in the addresses and corres- 
ponding data in any order. The only restriction is that, an 
address function should be followed by digits only, whose length 
should not exceed 5 for co-ordinates, 3 for feedrate, spindle- 
speed functions and 2 for other valid functions. 

This free format is to facilitate easy entry of the co- 
ordinates, functions and codes. 
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MISCELLANEOUS FUNCTIONS 


Code 

Function 

MOO 

Program stop (Hold) 

MOl 

Optional (planned) stop 

M02 

End of program 

MO 3 

Spindle clockwise 

M04 

Spindle Counter Clockwise 

M05 

Spindle OFF 

MO 6 

Tool change 

M07 

Coolant No. 2 ON 

M08 

Coolant No.l ON 

M09 

Coolant OFF 

MIO 

Clamp 

Mil 

Unci amp 

M13 

Spindle CW and Coolant ON 

M14 

Spindle CCW and Coolant ON 

M30 

End of Tape 

M3 1-99 

Optional and unassigned 




Flow Chart 1 


MAIN PROGRi'-Jvi 
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START 


m 

MACHINE COORDINATE 
SYSTEM 


.\MY OTHER G FUNCTION 


, 



J 

1 

a\LL 'MOVE' 


DISPLAY ERROR MESSAGE 
‘FUNCTION NOT IMPLE- 
MENTED' 

J 


r 1 


EXECUTE MISC FUNCTIONS 
HOLD,COOL;\NT ON, OFF, 
SPINDLE CW, CCW, STOP, 
CL/m>y UNCL/#P 


Yes 



( returiT) 


Nil. 


EXIT TO MAIN 
PROGFL'M 


Flow Chart 2 PROCEDURE ’ACTION' 
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III PL/M-86 V2. 0 COMPILATION OF MODULE NOM 
MODULE PLACED IN THESIS. OE.i 

INVOKED BY: : F2: PLM86. 86 THESIS. PLM 


$TITLE C-'NC M/C CONTROLLER-’) 

^liLIST 

$XREF 

$PAGELENGTH < 50 ) 
$PAGEWIDTH(70) 


NCM: DOi 

/*GLOBAL DATA DECLARATIONS*/ 

1 DECLARE INT*VECT0R(5) POINTER; 

1 DECLARE CR LITERALLY -’ODH-’. 

LF LITERALLY -’OAH-; 

1 DECLARE 

SIGN$ON(*) BYTE DATA (CRj LF j -NC Machine Controller 
“ -Plotter versi on-’i 0) / 

ABORT ( * ) BYTE DATA ( •- ”■'2 ■” , CR, LF, R u n a b o r t e d , 0 ) , 
ERR1(*) BYTE DATA( ''Function not implemented-’, 0), 
ERR2(*) BYTE DATA( •' 1 1 1 eqal character found-’, 0) ; 

1 DECLARE TRUE LITERALLY -’OFFH", 

FALSE LITERALLY -OOOH-’, 

MESSK*) BYTE DATA < -'ENTER THE G-CODE SEQUENCE WITH EA 
-CH BLOCK SEPARATED^, 0), 

MESS2(*) BYTE DATA (-’BY A SEMICOLON ; AND TO END EDITI 
-NG, PRESS <ESC> KEY-’,0), 

MESS3C*) BYTE DATA ( CR, LF, •' ILLEGAL CHARACTER ENTERED; FO 
~R EXIT PRESS '■;ESC>^,CR, 

LF, 0), 

MESS4(*) BYTE DATA (CR, LF, -’TYPE N TO START A NEW PROGR 
-AM, C TO MACHINE AGAIN-’, 0); 

1 DECLARE ERR5(*) BYTE DATA ( -'UneKpected character found-’, 

- 0 ), 

WARN(*) BYTE DATA (-'WARNING: Character ignored-’, 
- 0 ); 

1 DECLARE VALID$FN(*) BYTE DATA ( -'NGXYZACSFMTI J" ) ; ./*VALID 

- FUNCTIONS-' ADDRESS*/ 

1 DECLARE DIGIT(*) BYTE DATA ( "0123456789-’ ) ; 

1 DECLARE (I,.J, K, L, M, N, II) BYTE, 

(FL, CHAR) BYTE; 

DECLARE FILEtINDEX WORD; 


1 
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1 DECLARE FILE$DATA (1000) BYTE; 


1 


1 


1 1 


i 1 


DECLARE 


/■8-Port. numbers decl arat-i ons*/ 

STAT$8251 LITERALLY •m5FFF2H'C /*8251 STATUS 

PUKI */ 

DATA$8251 LITERALLY ''OFFPOH-C /*8251 DATA P 

UR f */ 

-....AK.r '^^•=£'^^'3251 LITERALLY ' OSSH-C /*8251 RESET C 
OMMAND*/ 

M0DE$8251 LITERALLY '■OCFH-' » /*8251 ASYNC MO 
DE SET COMMAND*/ 

CMND$8251 LITERALLY -•025H-C /*ENABLE TX, RX* 

■/ 

DS$RDY LITERALLY ••'OSOH-C /*DSR READY MASK*/ 
RX$RDY LITERALLY ■••02H-- ; /*RX READY MASK*/ 
TXfRDY LITERALLY --OlH--; /*TX READY MASK*/ 


DECLARE /*ASCII BYTE VALUES -CONST DECLARATIONS*/ 
BLANK LITERALLY '•20H-C 
BKSPCE LITERALLY -08H-C 
EOB LITERALLY -•SBH-C 
SCRNELNK LITERALLY '‘OCH-, 

DELETE LITERALLY ''OlOH-; 

DECLARE. /*BUFFERS DECLARATIONS*/ 

C0DE$PAST(13) INTEGER, 

C0DE$N0W(13) INTEGER, 

BUFFER! 128) BYTE, 

T(5) INTEGER INITIAL (0,0,0, 0,0); 

DECLARE INDEX BYTE; 


1 DECLARE TEMP INTEGER; 

' 1 DECLARE /*BOOTING OPCODE STORE DECLARATIONS*/ 

START$ADDR LITERALLY -OOOOH^, 

EOOTK*) BYTE AT (OFFFFOH) DATA (OEAH),/*L 
-ONG JUMP OPCODE*/ 

B00T2(*) WORD AT (OFFFFIH) DATA (STARTS ADD 
-R), /*OFFSET ADDRESS*/ 

E00T3(*) WORD AT (0FFFF3H) DATA (OFFOOH);/ 
--*SEGMENT ADDRESS*/ 

5 1 DECLARE P2ABUF BYTE, 

P2BBUF BYTE, 

P2CBUF BYTE; 

> 1 declare P2A LITERALLY -'OFFFSH-', 

P2B LITERALLY ^OFFFAH'*, 
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P2C LITERALLY '’OFFFCH-S 
P2S LITERALLY -'OFFFEH-'; 

1 DECLARE INCREMENTAL BYTE, 

LINEAR BYTE, 

CIRCULAR BYTE, 

CWISE BYTEi 


/•» FOR INITPORT PROCEDURE - GLOBAL VARIABLES */ 

1 DECLARE COOLNT LITERALLY ''OlH--, 

PI A LITERALLY ••'OFFFRH--, 

PIG LITERALLY ■-OFFFBH-- , 

PIC LITERALLY •-OFFFDH'-, 

PIS LITERALLY ■-OFFFFH-- i 


DECLARE PIABUF BYTE, 

PIEGUF BYTE, 

PICBUF BYTE; 

/•» INITIALIZATION PROCEDURES */ 


1 INI TPORT ; PROCEDURE; 

2 OUTPUT (P IS )=82H; /*P1A=0UTPUT, P1B=INPUT, PiC=OUTPUT */ 

2 P1ABUF=0FEH: 

2 P1BBUF=00; 

2 P1CBUF=00; 

2 0UTPUT(P1A)=P1ABUF; 

2 OUTPUT ( PIC ) =P1CEUF; 

2 END; 

1 I NIT I ALPORTS: PROCEDURE; 

2 OUTPUT (P2S)=82H; 

2 P2ABUF=9FH; 

2 OUTPUT ( P2A ) =P2ABUF ; 

2 P2CBUF=00H; 

2 OUTPUT (P2C)=P2CBUF; 

2 END; 


/«LOW LEVAL PROCEDURES */ 


1 


I N I T I AL$825 1 ; PROCEDURE; 
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OUTPUT (STAT$S251 >=65} CALL TIME(50) ; 


41 

•**> 

OUTPUT ( ST AT$825 1 ) =255 CALL T I ME ( 50 ) ; 


43 


OUTPUT ( ST AT$825 1 )=RESET^8251; 


44 

.y 

CALL TIME <50)5 


45 

• 7 / 

OUTPUT ( ST AT$825 1 ) =M0DE$825 1 5 


46 

*7/ 

CALL TIME (50 ) 5 


47 

2 

OUTPUT ( ST AT45825 1 ) =CMND$825 1 5 


48 

* 7 ^ 

CALL TIME (50 ) 5 


49 

2 

END5 


50 

1 

CHAR^RDY: PROCEDURE BYTEs 


51 


IF (INPUT(STAT$i3251) AND RX$RDY)=0 THEN RETURN 

FALSE 


.y 

ELSE RETURN TRUEs 


54 

2 

ENDS 


55 

1 

OUT$CHAR : PROCEDURE ( CH ) s 


56 

•y 

DECLARE CH BYTEs 


57 

2 

IF <CHAR$RDY) THEN CALL CHK$CTL*CHARs 


59 

2. 

DO WHILE (INPUT (ST AT$8251) AND TX$RDY)=Os 


60 

3 

ENDS 


61 


OUTPUT ( D ATA1S825 1 ) =CHs 


62 

,y 

ENDS 


63 

1 

GET^CHAR: PROCEDURES 


64 

2 

DO WHILE(INPUT(STATf8251) AND RX*RDY)=Os 


65 

3 

ENDS 


66 

2 

CHAR= I NPUT ( D AT A$825 1 ) AND ( 07FH ) s 


67 

•7/ 

IF CHAR>=BLANK THEN CALL OUT^CHAR ( CHAR > s 


6"? 

2 

IF CHAR=CR THEN CALL OUT$CRLFs 


71 

2 

ENDS 



72 

1 

OUT$CRLF: PROCEDURES 

73 

2 

CALL OUT$CHAR(CR)s 

74 

2 

CALL OUT$CHAR(LF)s 

75 

2 

ENDS 

76 

■1' 

OUTtSTR I NG : PROCEDURE ( PTR ) s 

77 

2 

DECLARE PTR POINTERS 

78 

2 

DECLARE STR BASED PTR(l) BYTE 

79 

2 

DECLARE IND BYTE s 

80 

2 

IND=0s 

81 

82 

2 

DO WHILE STR (IND) 00 s 

3 

CALL OUTf CHAR ( STR < I ND ) ) s 

iR 3 

3 

IND=IND-Hs 

84 

'■3 ' 

ENDS 

85 

2 , , 

CALL OUT^CRLFs 
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.y 

ENDi 

87 

1 

CHK$VALID: PROCEDURE BYTEi 



/* INPUT TO THIS PROCEDURE IS THE GLOBAL VA 



-R I ABLE CHAR*/ 

yfc* 

''7 

DO 1=0 TO LAST<VALID$FN)5 

89 


IF CHAR=VALID$FN(I>THEN RETURN TRUE; 


/■ifrRe turns the index the subscript of the t'unctiori in 
-the array*/ 


91 

o 

END; 

92 

‘"7 

RETURN FALSE; 

93 

“'7 

END; 

94 

1 

GET$DATA; PROCEDURE; 

/*ST0RES ONE BLOCK OF G-CODE SEQUENCE INTO 
- A BUFFER*/ 

95 

2 

DECLARE IND BYTE; 

96 

2 

IND=0; 

97 

2 

IF <FILE$DATA(FILE*INDEX)=0) OR (FL=1) THEN GOTO E 
-XIT; 

99 

2 

DO WHILE FI LEDAT A ( F I LE$ I NDEX ) <> < ; ■- 3 ; 

100 

3 

BUFFER < I ND ) =F I LE*DAT A ( F I LE* I NDEX ) ; 

101 

3 

IF FILE«DATA<FILE$INDEX3=0H THEN 

102 

4 

DO; BUFFER ( IND 3=0; FL=1; GOTO EXTSLOOP 

END; 

107 

3 

IND=IND+1; 

108 

3 

FILE$INDEX=FILEfINDEX+l; 

109 

3 

END; 

110 

2 

BUFFER < IND 3=0; 

111 

2 

FILE^INDEX=FILE$INDEX+1; 

112 

2 

END; 

113 

1 

INITIAL^DATA: PROCEDURE; 

/* I n i t i 3 1 i s e CODE$P AST , CODE$NOW. F I LE I NDEX 

-*/ 

114 

2 . 

FILE$INDEX=0; 

/* Sets the machine in i ncremental. 1 i near interpolation 
- mode */ 

115 

2 

INCREMENTAL=TRUE; 

116 

2 

LINEAR=TRUEi 

117 

2 ' 

CIRCULAR=FALSE; 

1 18 

2 

CWISE=TRUE; 

119 

2 

FL=0; 

120 

2 

DO 1=0 TO 12; 

121 

3 

CODE*PAST<I)=0; 

122 

3 ■ ' 

CODE^NOWC 13=0; 

123 

o 

END; 
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124 2 CODEfNOW( 1)=90; /-fi-G FUNCTION ABSOLUTE DIMENSION */ 

125 2 CODENOW (9) =995 /* MI SC 

126 2 END 5 


127 1 

1 28 2 


129 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 


2 

O 



■7 


2 

2 


3 

3 

2 


1 46 2 

147 3 

148 3 

149 3 

150 2 

151 2 

152 3 

153 3 

155 3 

156 2 

157 3 

161 2 
162 2 

163 2 

164 2 

165 3 

166 3 

167 3 

168 3 

169 3 

170 2 

171 2 


ST ORE$F I LE : PROCEDURE 5 
DECLARE LST$BLK WORD, 

BLK BYTEs 

FILE$INDEX=05 LST^BLK=05 
BLK=05 

CALL OUT$STR I NG ( ©MESS 1 ) 5 
CALL 0UT$STRING<€MESS2)5 
LOOP; CALL GET$CHARi 

IF ( 0::HAR>=041H) AND <CHAR<=05AH1 ) THEN 
DOs 

F I LE$D AT A < F I LE$ I NDE X ) =CH ARs 
FILE$INDEX=FILE*INDEX+l5 
ENDS 

ELSE IF ( (CHAR>=061H) AND (CHAR<=07AH) 5 THEN 
DOS 

F I LE$DAT A ( F I LE$ I NDEX ) =CHAR-020Hs 
FILE^INDEX=FILE*INDEX+1; 

ENDS 

ELSE IF ( (CHAR:>=030H)AND(CHAR<=39H) ) OR < <CHAR=-- + -- 
-) OR (CHAR=-'— ')) THEN 
DOS 

F I LE$DAT A ( F I LE$ I NDEX ) =CH ARs 
FILE$INDEX=FILE^INDEX+l5 
ENDS 

ELSE IF < (CHAR=BKSPCE)OR(CHAR=DELETE) ) THEN 
Du s 

FILE$INDEX=FILE$INDEX-ls 
IF FILE*INDEX=-1 THEN FILE*INDEX=Os 
ENDS 

ELSE IF (CHAR=01BH> THEN 

DOs FILE*DATA(FILE*INDEX)=05 RETURNS ENDS /■a'<ESC> EN 
-COUNTERED */ 

ELSE IF <CHAR=BLANK)OR < CH AR=LF ) OR < CH AR=CR ) THEN 
GOTO LOOPS 

ELSE IF(CHAR=^s ^ )THEN 
DOS 

F I LESDATA « F I LE$ I NDEX ) =CHARs 
LST*BLK=F I LE$ I NDEX s 
BLK=BLK+ls 

FILEtINDEX=FILE^INDEX+ls 

ENDS 

ELSE IF (CHAR=015H) THEN /■» IF CHAR=CTL U */ 

DOs 
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172 3 

173 3 

174 3 

175 2 


176 

177 


F I LE$- 1 NDEX=LSTf BLK; 
CALL OUT^CRLFi 
END; 

ELSE 

DO; 

CALL OUTSTR I NO ( tMESSS ) ; 
END; 


178 2 

1 80 3 


181 

182 

183 

184 

185 

186 


"-i 

*7 

* 7 / 


IF FILE$INDEX > 998 THEN DO; 

DECLARE LIMITERR<«) BYTE DATA(-File limit exceeded; 

-EOF inserted. j 0 ) ; 

CALL OIJTfSTRING(gLIMIT£RR); 

F I LE$D ATA ( F I LE$ I NDEX ) =0; 

RETURN; 

END; 

GOTO LOOP; 

END; 


187 

1 

1 £!8 

2 

1 89 

2 

1 90 

o 

192 


193 

O' 

194 

4 

195 

4 

197 

4 

198 

3 

199 

2 

201 

2 


CHK^CTL^CH AR : PROCEDURE ; 
CHAR=INPUT<DATA$8251 ) AND 07FH; 

IF CHAR=13H THEN /* CTL 8? */ 

DO WHILE (CHAROllH); CTL Q? */; 

IF CHAR$RDY THEN 
DO; 

CHAR=INPUT(DATA^8251) AND 07FH; 

IF CHAR=1AH THEN GOTO CTLZ; /* CTL Z •»/ 
END; 

END; /* DO WHILE */ 

ELSE IF CHAR=1AH THEN GOTO CTLZ; 

END; /* CHK$CTL$CHAR */ 


202 1 ACTION: PROCEDURE; 

203 2 DECLARE CODE INTEGER. 

MI SC INTEGER. 

SPEED INTEGER. 

TOOL INTEGER, 

TOOLMESSt*) BYTE DATA (^Automatic tool change being 
-done'’.0); 


204 

2 

DECLARE MAXSPEED INTEGER DATA (125); 

205 

2 

OUT I NTEGER : PROCEDURE < NUMBER ) ; 

206 


DECLARE NUMBER INTEGER; 

207 

3 

P 1 CBUF=LOW < UNS I GN ( NUMBER ) ) ; 

208 


OUTPUT ( P 1 C ) =P 1 CBUF ; 

209 

3 ' 

END; 
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210 


HOLD: PROCEDURE; 

21 1 

'3 

REP: I=INPUT<P1B); 

212 

3 

I=I AND (40H) ; 

213 


IF 1=0 THEN GOTO REP; 

215 

3 

END; 

216 

* 7 / 

NOTIMPLEM: PROCEDURE; 

217 

3 

CALL OUTSTRINGCSERRl) 

218 


END; 


DELAY: PROCEDURE; 

DECLARE N WORD; 

DO N=1 TO CODENOW < 2); 

CALL TIME (125); 

END; 

CODENOW ( 2 ) =CODEPAST ( 2 ) ; 

END; 

MOVE: PROCEDURE; 

/*• LOCAL VARIABLES DECLARATIONS */ 

DECLARE X2 LITERALLY '• CODENOW ( 2 )•- ; 

Y2 LITERALLY •- CODENOW ( 3 ) -L 
Z2 LITERALLY '■ CODENOW ( 4 )'• , 

XI LITERALLY ^ CODEPAST ( 2 ) '0 
Y1 LITERALLY •- CODER AST ( 3 ) -• , 

Z1 LITERALLY •'C0DEPAST<4) 

DECLARE DX INTEGER. 

DY INTEGER, 

DZ INTEGER; 

DECLARE SIGNX BYTE, 

SIGNY BYTE, 

SIGNZ BYTE; 

DECLARE XPLUS LITERALLY -SOH-, /* •P', 
YPLUS LITERALLY ^40H^, 

XMINUS LITERALLY ^30H'-, 

YMINUS LITERALLY ■'20H'; 

DECLARE CHX BYTE , 

CHY BYTE , 

CHXY BYTE ; 

DECLARE (M, N, F, MX,MY, DELX.DELY) INTEGER; 
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- p o 1 a t i 0 n */ 


233 

3 

DECLARE (II, JJ, XC, YC, X, Y, FX, FY. 

■""i 

234 


Sir3NX=FALSE; 

235 

w* 

SIGNY=FALSEi 

236 

3 

SIGNZ=FALSEi 

237 

■-J 

IF INCREMENTAL=FALSE THEN DOi 

239 

4 

DX=X2~Xli 

240 

4 

DY=Y2-Y1; 

241 

4 

DZ=Z2~Zli 

242 

4 

ENDj 

243 


ELSE DOi 

244 

4 

DX=X2; 

245 

4 

DY=Y2i 

2:46 

4 

DZ=Z2i 

247 

4 

ENDi 

248 


IF DX<0 THEN DO; 

250 

4 

SIGNX=TRUE; 

251 

4 

DX=-DX; 

252 

4 

END; 

253 

3 

IF DY<0 THEN DO; 

255 

4 

SIGNY=TRUE; 

256 

4 

DY=-DY} 

257 

4 

END; 


3 

IF DZCO THEN DO; 

260 

4 

SIGNZ=TRUE; 

261 

4 

DZ=-D2; 

262 

4 

END; 

263 

3 

CALL OUTCHAR( 

264 

3 

IF SIGNX THEN CHX=XMINUS; ELSE 

267 

3 

IF SIGNY THEN CHY=YMINUS; ELSE 

270 

'P% 

IF SIGNZ THEN CALL OUTCHAR( 'H' 

272 

3 

ELSE CALL OUTCHAR ( '• I ; 

/# PEN UP OR PEN DOWN */ 

273 

3 

CALL OUTCHAR ( •' D "• ) ; 

274 

'3 ' 

M=DX+DYi 

275 


F=0; 


CHX^ 

CHY^ 


=XPLUSi 

=YPLUSi 


PAGE 9 

rcul ar i nt er 
3, D) INTEGER 
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277 

278 



285 4 

287 4 

290 4 

291 5 

292 5 

293 5 

294 5 

295 4 

296 4 

298 4 

300 4 

301 4 

302 4 

304 4 

306 4 

307 4 

309 4 

311 4 

312 4 

313 4 

315 4 

317 4 

318 4 

320 4 

321 4 



MY=Oi 

N=0} 

IF LINEAR THEN DO; 

/■s-Linear I nt-erpol ati on begins 

DELX=-DY; 

DELY=DX; 

IF (DXOO) AND (DYOO) THEN GOTO BOTH; 
IF (DX=0) AND (DY=0) THEN GOTO DONE; 

IF (DX=0) THEN CHXY=CHY; ELSE CHXY=CHX; 
DO WHILE NOM; 

CALL OUTCHAR<CHXY); 

CALL TIMEX 100); 

N=N+1; 

END; 

GOTO DONE; 

BOTH; IF (DX<DY) THEN GOTO YALSO; 

X ALSO : CALL OUTCHAR ( CHX ) ; CALL T I ME ( 1 00 ) ; 
N=N+1; 

MX=MX+1; 

IF N=M THEN GOTO DONE; 

IF MX=DX THEN GOTO YALSO; 

F=F+DELX ; 

IF F>=0 THEN GOTO XALSO; 

YALSO ; CALL OUTCHAR ( CHY ) ; CALL T I ME ( 1 00 ) ; 
N=N+i; 

MY=MY+1; 

IF N=M THEN GOTO DONE; 

IF MY=DY THEN GOTO XALSO; 

F=F+DELY; 

IF F<=0 THEN GOTO YALSO; 

GOTO XALSO; 

DONE;/* Interpolation ends */ 

END; 

ELSE IF CIRCULAR THEN 
EiO; /* Circular i nterpol at ion begins */ 
II=C0DEN0W(11 ); 

JJ=CODENOWa2); 

XC=X1+II; 

YC=Y1+.JJ; 

X=X1; 

Y=Y1; 

FX=X2; 

FY=Y2; 

IF (Y>YC) THEN DELX=1; ELSE DELX=-i ; 
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335 

340 

342 

343 « 

344 

345 

346 

347 

348 

349 


350 

352 

354 

356 

0 * 2 *“ ”7 
/ 

359 

360 
361 


4 

4 

5 

6 
6 
6 

5 

6 
6 
6 
5 

4 

5 

6 
6 
6 

5 

6 
6 
6 


362 4 

36*4 5 

367 5 

370 5 

372 8 

374 7 

375 7 

376 7 

377 6 

378 7 

379 7 

380 7 

381 6 

382 5 

384 6 

386 7 

387 7 

388 7 

389 6 

390 7 

391 7 

392 7 

393 6 

394 5 

395 4 


IF (X>XC) THEN DELY=-1; ELSE DELY=li 
IF (X=XC) THEN DO? 

IF (Y>YC) THEN DOi 
DELY=-li 
DELX=1; 

ENDi 

ELSE DOi 

DELY=li 

DELX=-ii 

END; 

ENDi 

IP (Y=YC) then DOi 

IF (X>XC) THEN DOi 
DELX=-li 
DELY=-li 
ENDi 

ELSE DOi 

DELX=li 

DELY=-li 

ENDi 


ENDi 


IF 

IF 

IF 

IF 

IF 


CWISE=FALSE THEN DOi 
<Y>YC) THEN DELX=-liELSE DELX-li 
(X>XC) THEN DELY=liELSE DELY=-li 
(X=XC) THEN DOi 
(Y>YC) THEN DOi 


DELY=-li 


DELX=-li 

ENDi 

ELSE DOi 

DELY=li 

DELX=li 

ENDi 

ENDi 

IP (Y=YC) then DOi 

IF (X>XC) THEN DOi 

DELX=-l5 

DELY=li 

ENDi 

ELSE DOi 

DELX=li 

DELY=-li 

ENDi 

ENDi 

ENDi 

LX=DELX*2* < X-XC ) +1 i 
LY=DELY*2* i Y-YC ) + 1 i 
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397 4 D=Oi 

398 4 DO WHILE ((X2=FX) OR <Y2=FY) 

OR < ( (X1-FX)«-(X2-FX)<0) AND ( (Y1-FY>*( Y2-FY)<05 ) 

OR C ( <X1-FX)*(X2-FX)>=0) AND ( ( Yi-FY)*( Y2-FY><0) ) 

OR < ( ( X 1 -FX ) * ( X2-FX ) <0 ) AND < ( Y 1-FY ) * ( Y2-FY ) >=0 > AND < Y2*FY>0 

~) ) ) i 

399 5 Dl = (D+LX)i IF DKO THEN D1=-D1} 

402 5 D2=(D+LY)iIF D2<0 THEN D2=-D2i 

405 5 D3--=(D+LX+LY)i IF D3<0 THEN D3=-D3i 

408 5 IF <D1>D2)AND <D2>D2) THEN GOTO XYINCi 

410 5 IF (D1>D2)AND <D2<=D2) THEN GOTO YINC; 

412 5 IF D1>D3 THEN GOTO XYINCi 

414 5 XINC:D=D+LX: 

415 5 LX=LX+2j 

416 5 X=X+DELXi 

417 5 CALL OUTCHAR ( CHX ) i 

418 5 GOTO CONTINi 

XYINC: D=D+LX+LYj 
LX=LX+ 2; 
l_Y=LY+2i 
X=X+DELX; 

V— v-i-riiri V’ 

CALLOUTCHARCCHXli 
CALL OUTCHAR ( CHY ) i 
GOTO CONTINi 


427 

5 

YINC: D=D+LY; 

428 

5 

LY=LY+2; 

429 

cr 

Y=Y+DELY; 

430 

5 

CALL OUTCHAR C CHY ) ; 

431 

5 

CONTIN: X1=X2; 

432 

5 

X2=X; 

433 

5 

Y1=Y2; 

434 

5 

Y2=Y; 

435 

cr 

END; 


DO WHILE (XOFX)i 
CALL OUTCHAR (CHX)J 
X=X+DELXi 
END; 


440 

4 

DO WHILE (YOFY) ; 

441 

5 

CALL OUTCHAR (CHY); 

442 

5 

Y=Y+DELY; 

443 

5 

END; 


436 4 

437 5 

438 5 

439 5 


419 

420 

421 

422 

423 

424 

425 

426 
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444 4 

445 3 

446 4 

448 4 

450 5 

451 5 

452 5 

453 4 

454 5 

455 5 

456 5 

457 4 

458 5 

459 5 

460 5 

461 4 

46-3 4 

464 4 

465 5 

466 5 

467 4 


468 3 

469 3 

470 3 

471 3 

472 4 

473 4 

474 3 


475 2 

476 2 

477 2 

478 2 

479 2 

480 2 

481 2 

432 2 

483 2 

484 2 

485 2 

486* 8 

487 3 


COMPILER 


PAGE , 1 


ENE4 / ^ L i r c y 1 a r i rs t« a r p o 1 a t- i o n ends 
ELyE DUi /•?«• Point tcf point ^ posi ti orii ng */ 

IF DX=DY THEN F-i)X; 

ELSE IF DX>DY THEN DOj 


CHXY=CHX; 

F=DYi 

ENDi 

ELSE DO; 

F=DX; 

C:HXY=CHY; 

END; 

DO DELX=1 TO F; 

CALL OUTCHAR(CHX) ; 

CALL OUTCHAR<CHY}; 

END; 

IF DX=DY THEN GOTO OVER; 

N=H-F-F; 

DO DELX=1 TO N; 

CALL OUTCHAR ( CHX Y ) ; 

END; 

OVER: END; /-s- point to point positioning over */ 


CALL OUTCHAR (CR); 

CALL OUTCHAR (LF); 

CALL OUTCHARC-'&O; /* DELIMITER FOR PLOTTER DATA */ 
DO 1=2 TO 6; 

CODEPAST ( I ) =CODENOW ( I ) ; 

END; 

RETl: END; /* END OF PROCEDURE MOVE ■»/ 

/■^ACTION STARTS HERE */ 

CODE=CODENOW ( 1 5 ; 

SPEED=C0DEN0W(7); 

T00L=C0DEN0W( 10); 

IF SPEED<MAXSPEED THEN 
SPEED= ( SPEED/MAXSPEED ) *256; 

ELSE SPEED=MAXSPEED; 

I =LOW < UNS I GN ( SPEED ) ) ; 

P2CBUF=I; 

OUTPUT <P2C)=I; 

IF CODENOW ( 10 )<>CODEP AST ( 10) THEN 
DO; 

CALL OUTSTRING(@TOOLMESS); 

CALL OUT INTEGER (TOOL); 


I 

I 

i' 
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488 


CODENOW (10) =CODEPAST (10); 

489 


END; 

490 

*“y 

ELSE IF C0DE=00 THEN LINEAR=FALSE; /# point to point */ 

492 

2 

ELSE IF C0DE=01 THEN LINEAR=TRUE; /* linear interpolatio 
-n */ 

494 

o 

ELyE IF ( C0EiE=02 ) OR ( C0CiE=03 ) THEN EiO;/* circular interp>o 
“lation «•/ 

496 


CIRCULAR=TRiJE; 

497 

s 

IF C0DE=02 THEN CWISE==TRUEi 

-ELSE CWISE=FALSE; 

500 


CALL MOVE; 

50 1 


END; 

502 

2 

ELSE IF C0DE=91 THEN INCREMENTAL=TRUE; /*i ncremental dime 
-nsi oni ng ■»•/ 

504 

2 

ELSE IF C0DE=9d THEN INCREMENTAL=FALSE; /■«■ absolute dimen 
-sioning */ 

506 

2 

ELSE IF C0DE=04 THEN CALL DELAY; /* dwell */ 

508 

2 

ELSE IF (C0DE=28) OR (C0DE=29) THEN 

509 

2 

EiU; 

510 

4 

DO 1=2 TO 6; CODENOW (I >=0; i 

512 

4 

END; 

513 

3 

CALL MOVE; 1 

514 

o 

END; i 

515 

2 

ELSE IF C0DE=53 THEN CALL MOVE; i 

517 

2 

ELSE IF (C0DEO90) AND (C0DEO91) AND (C0DEO4) AND (COD i 
-E028) AND (C0DEO29) AND (C0DEO53) THEN CALL NO' 
-TIMPLEM; | 

519 

2 

DO 1=2 TO 6; 

520 

3 

IF NOT (CODENOW(I)=CODEPAST(I)) THEN CALL MOVE; 

522 

3 

END; 

523 

2 

MISC=C0DEN0W(9); 

524 

2 

IF MISC=00 THEN CALL HOLD; 

526 

2 

ELSE IF MISC=02 THEN GOTO EXIT;/*END OF PROGRAM*/ 

528 

2 

ELSE IF MISC=03 THEN DO; 

/* CW ROTATION */ 

530 

3 

P2ABUF=(P2ABUF) AND (5FH); 

531 

3 

OUTPUT ( P2A ) =P2ABUF; 

532 

3 

END; 

533 

2 

ELSE IF MISC=04 THEN DO; 

/* CCW ROTATION */ 

535 

'■"3 ■ 

P2ABUF=(P2ABUF) OR (80H); 1 

536 

3 

P2ABUF=(P2ABUF) AND (ODFH); I 
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537 3 

OUTPUT ( P2A ) =P2AEUF: 

3 

END; 

539 2 

ELSE IF MISC=05 THEN DO; 


/* STOP SPINDLE */ 

541 3 

P2ABUF=(P2ABUF) OR (OAOH) 

542 3 

OUTPUT ( P2A ) =P2ABUF; 

543 3 

END; 

544 2 

ELSE IF MISC=06 THEN DO; 


/* TOOL CHANGE */ 

546 3 

CALL OUTSTR I NG < STOOLMESS ) 

547 3 

CALL OUT I NTEGER ( TOOL > ; 

548 3 

END; 


549 2 ELSE IF MISC=07 THEN DO; 

/* COOLANT ON */ 

551 3 P1AB1JF=<P1ABUF) OR (COOLNT); 

552 3 OUTPUT < P 1 A ) =P 1 ABUFi 

553 3 END; 

554 2 ELSE IF MISC=09 THEN DO; 

/* COOLANT OFF */ 

556 3 P1ABUF=(P1ABUF) AND <OFEH); 

557 3 0UTPUT(P1A)=P1ABUF; 

558 3 END; 


559 2 ELSE IF MISC=10 THEN DO; 

/* CLAMP */ 

561 3 P2AEUF= P2ABUF OR <10H> ; 

562 3 OUTPUT ( P2 A ) =P2ABUF ; 

563 3 END; 


564 2 

566 3 

567 3 

568 3 

569 2 

571 2 

572 2 

573 2 

574 1 

575 2 

576 3 


ELSE IF MISC=11 THEN DO; 

/* UNCLAMP */ 

P2ABUF=P2ABUF AND (OEFH); 

OUTPUT < P2A 1 =P2ABUF; 

END; 

ELSE IF (MISC099) AND IMISOll) THEN CALL NOTIMPLEM; 
C0DEN0W(9)=99; /* MISC=99 */ 

CODEPAST ( 1 0 ) =C0DEN0W < 1 0 ) ; 

END; /* ACTION */ 


GET$NEW$CODE: PROCEDURE; 

DIGIT^NO; PROCEDURE; 

IF (CHAR>=' 0'' ) AND ( CH AR<= " 9 •- > THEN 1 1 =CHAR- 0 " ; 
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578 3 ELSE II=OFFHi 

579 3 END; 


580 

581 

582 

584 

585 

586 

587 
589 

591 

592 

595 

600 

602 

603 

604 
606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 
617 


4 


4 

4 

4 

4 

4 

4 

4 

3 

3 

3 


CODEiUCOORD : PROCEDURE; 

DECLARE MAX^DIGIT BYTE DATA (05H>; 

J~0; K— I; 

M=0; 

LOOPl: INDEX=INDEX+1; 

CHAR=BUFFER ( INDEX ) ; 

IF CHAR=0 THEN GOTO CONTI;/* buffer end */ 

IF CHK$VALID=TRUE THEN GOTO CONTI; 

CALL DIGITfNO; /*NOW II CONTAINS THE DIGIT VALUE */ 
IF CII=OFFH) then 

if < CHARO -' + •••) AND <CHAR<> THEN GOTO CONTI; 
IF CHAR=- --' THEN D0;M=1;G0T0 LOOPl; END; 

IF CHAR= '• + •■■ THEN GOTO LOOPl; 

T(J)=INT(II>; 

J=J+1; 

IF J<(MAX*DIGIT) THEN GOTO LOOPl; 

INDEX=INDEX+1; 

CONTI: DO CASE J; 

TEMP=0; 

TEMP=T(0); 

TEMP=T(0)*10+T(1); 

TEMP=T ( 0 ) ■»■ 1 00+T ( 1 ) * 1 0+T < 2 ) ; 

TEMP=T ( 0 ) * 1 000+T ( 1 ) * 1 00+T < 2 ) * 1 0+T < 3 ) ; 

TEMP=T < 0 ) * 1 0000+T ( 1 ) * 1 000+T ( 2 ) * 1 00+T ( 3 ) * 1 0+T < 4 ) ; 
END; 

IF (M=01) THEN 
TEMP=-TEMP; 

END; 


618 2 
619 3 

621 3 

622 3 

623 3 

625 3 

627 3 

623 3 

631 3 

632 3 

633 3 

635 3 

636 8 

637 4 
6 88 4 


GET$NGSFTM: PROCEDURE; 

J=0;K=I; 

L00P2; INDEX=INDEX+1; 

CHAR=BUFFER ( INDEX ) ; 

IF CHAR=0 THEN GOTO C0NT2; 

IF CHK*VALID=TRUE THEN GOTO C0NT2; 

CALL DIGIT^NO; 

IF (II=0FFH) THEN IF CCHAR<>'+'') THEN GOTO C0NT2; 
T<.J) = INT(II); 

U”U+ 1 ; 

IF (J<:L> THEN GOTO L00P2; 

INDEX=INDEX+1; 

C0NT2; DO CASE U; 

TEMP=0; 

TEMP=T(0); 
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651 

652 

653 

655 

656 

657 

658 

659 

660 
6*6 1 
662 

663 

664 

665 


TEMP=T(0)*10+T<l)i 
TEMP=T(0)*100+T ( 1 )*10+T (2) 5 
END; 

END; 


C0DE$3: PROCEDURE; /* FOR N, S, F */ 
L=3; 

CALL 6ET$N0SFTM; 

END; 


::0DE$2: PROCEDURE; /* FOR M ■«•/ 


L=2; 

CALL GET^NGSFTM; 
END; 


INDEX=0; 

LP ; CH AR=BUFFER ( I NDEX ) ; 
jp r:HAR=0 THEN GOTO EX; 

IF chk;$valid=true then 
DO CASE I; 

CALL C0DE$3; 

CALL C0DE$2; 

CALL CODE^COORD; 

CALL CODE^COORD; 

CALL CODEfCOORD; 
r;ALL CODE$COORD; 

CALL CODE^COORD; 

CALL C0DE*3; 

CALL CODECS; 

CALL C0DE$2; 

CALL C0DE*2; 

CALL CODE^COORD; 

end'T “Sno“?emp contains the integer value of the I 

— 'TH FUNCTION •«■/ 

else Qy^^STRING(tERR5>; 

CALL OUT ^STRING ( ©WARN >; 

INDEX=INDEX+1; 

GOTO LP; 

END; 

CODE^PAST ( K > =CODEWUW ( K. ) ; 

CODE^NOW ( K ) “TEMP; 

GOTO LP; 

EX: END; 


INIT^PLOTTER: PROCEDURE; 
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682 

2 

DECLARE PLT CHR { # ) BYTE DATA ( , 0 ) i 

683 

“'y 

CALL OUTSTRINGCtPLTCHR); 

684 

2 

ENDi 

685 

1 

OUT^F I LE : PROCEDURE ; 

686 

2 

DECLARE CH BYTE; 

687 


FILE$INDEX=Oj 

6*8£! 

'T' 

REPLP : CH=F I LEf DAT A ( F I LE$ I NDEX > ; 

689 

**7 

IF CH=0 THEN GOTO REPEX; 

691 

2 

CALL OUTCHAR<CH); 

692 

■"y 

IF CH=--; THEN DOi 

694 

•Z* 

CALL OUTCHAR(CR); 

695 

3 

CALL OUTCHAR(LF)i 

696 

3 

END; 

697 

2 

FILE$INDEX=FILE$INDEX+li 

698 

2 

GOTO REPLP; 

699 

2 

REPEX ; CALL OUTCHAR < CR ) ; 

700 

2 

CALL OUTCHAR (LF); 

701 

2 

END; 

702 

1 

START: CALL INITPORT; 

703 

1 

CALL INI T I ALPORTS; 

704 

1 

CALL INITIAL3i82Sl; 

705 

1 

CALL INITIAL^DATA; 

706 

1 

CALL OUTfSTRING(eSIGN$ON); 

707 

1 

CALL OUTCRLF; 

708 

1 

LOOP: CALL STORE^FILE; 

709 

1 

CONT I N : CALL OUT$F I LE ; 

710 

1 

CALL INITIAL$DATA; 

711 

1 

CALL INIT$PLOTTER; 

712 

1 

ACT^LOOP: CALL GET^DATA; 

713 

1 

EXT$LOOP: CALL GET$NEW*CODE; 

714 

1 

CALL ACTION; 

715 

1 

GOTO ACT^LOOP; 

716 

1 

EXIT: CALL 0UT*STRING(eMESS4); 

717 

1 

CALL GETCHAR; 

718 

1 

IF CHAR=''N'' THEN GOTO LOOP; 

720 

1 

IF CHAR='’C'' THEN GOTO CONT IN; 

722 

1 

GOTO EXIT; 

723 

1 

CTLZ: CALL OUTSTRING< @ABORT ) ; 

724 

1 

GOTO START; 

725 

1 

END; /*MAIN PROGRAM*/ 
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DEFN ADDR SIZE NAME. ATTRIBUTES. AND REFERENCES 


4 002BH 

202 0493H 

712 0025H 

13 

13 

128 0506H 

17 FHFFFOH 
17 FHFFFIH 
17 FHFFF3H 
296 09B4H 

14 0479H 

686 050DH 

56 0004H 

9 0090H 


16 ABORT. . 

785 ACTION . 

ACTLOOP. 
BKSPCE . 

BLANK. . 

1 BLK. . . 

1 BOOTl. . 

2 B00T2. . 

2 E00T3. . 

BOTH . . 

128 BUFFER . 

1 CH . . . 

1 CH . . . 

1 CHAR . . 


50 

01i2H 

28 

CHARRDY. . 

187 

043EH 

85 

CHKCTLCHAR 

87 

OICFH 

54 

CHKVALID . 


BYTE ARRAY < 16) DATA 
723 

PROCEDURE STACK==001AH 
714 

LABEL 715 

LITERALLY ^08H'- 
150 

LITERALLY ■"20H-^ 

67 161 

BYTE IN PROC (STOREFILE) 
131* 167* 167 

BYTE ARRAY(l) AT INITIAL A 
-BSOLUTE 

WORD ARRAYS 1) AT INITIAL A 
-BSOLUTE 

WORD ARRAY(l) AT INITIAL A 
-BSOLUTE 

LABEL IN PROC (MOVE) 

284 

BYTE ARRAY Cl 28) 

100* 103* 110* 586 

622 652 

BYTE IN PROC (OUTFILE) 

688* 689 691 692 

BYTE IN PROC COUTCHAR) PAR 
-AMETER AUTOMATIC 


56 

BYTE 

61 

66* 

67 

68 

69 

89 

135 

137 

140 

142 

145 

147 

150 

156 

161 

163 

165 

170 

188* 

189 

190 

194* 

195 

199 

576 

577 

586* 

587 

593 

595 

600 

622* 

623 

629 

652* 

653 

718 

720 


PROCEDURE 

BYTE 

STACK=' 

57 

192 




PROCEDURE STACK=0006H i 

58 ' 

PROCEDURE BYTE STACK=0002H 
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231 

050AH 

1 

CHX 

231 

050CH 

1 

CHXY 

231 

050BH 

1 

CHY 

20 

04FFH 

1 

CIRCULAR 

12 



CMND8251 

203 

004EH 

2 

CODE 

647 

12B2H 

13 

C0DE2 

643 

12A5H 

13 

CODES 

580 

1039H 

392 

CODECOORD 

14 

0026H 

26 

CODENOW 


589 625 655 

BYTE IN PROC (MOVE) 
265* 266* 289 298 

417 424 437 450 

458 

BYTE IN PROC (MOVE) 
288* 289* 291 450* 

455* 465 

BYTE IN PROC (MOVE) 


268* 

269* 288 

425 

430 

441 ^ 

459 



BYTE 


117* 

496* 



LITERALLY 

-'025H'- 


47 

INTEGER IN PROC (ACTION) 
475* 490 492 494 

497 502 504 506 

508 515 517 

PROCEDURE IN PROC (GETNEWC 
-ODE) STACK=000AH 
658 666 667 

PROCEDURE IN PROC (GETNEWC 
-ODE ) STACK=000AH 
657 664 665 

PROCEDURE IN PROC (GETNEWC 
-ODE) STACK=0006H 


659 

660 

661 662 

663 

668 

669 

INTEGER ARRAY (13) 

122* 

124* 125* 22: 

224* 

239 

240 241 

244 

245 

246 324 

325 

330 

331 398 

431 

432* 

433 434* 

472 

475 

476 477 

484 

488* 

511* 520 

523 

571* 

572 677 

678* 

INTEGER ARRAY (13) 

121* 

224 

239 240 

241 

326 

327 328 

329 

398 

431* 433* 

472* 

484 

488 520 

572* 

677* 


14 OOOCH 


26 CODEPAST 
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607 

lOECH 


CONTI 

636 

1245H 


C0NT2 

431 

ODEFH 


CONTIN 

709 

21 

OOlCH 


CONTIN 

COOLNT 

CR 

723 

20 

0062H 

0500H 

1 

CTLZ 

CWISE 


0086H 

2 

D 

233 

0080H 

2 

D1 ....... . 

233 

0082H 

2 

D2 

233 

0084H 

2 

D3 . . 

12 



DATA8251 . . . . . 

219 

07E2H 

55 

DELAY 

13 



DELETE 

232 

0068H 

2 

DELX ....... 



LABEL IN PROC (CODECOORD) 
588 590 594 

LABEL IN PROC (GETNGSFTM) 
624 626 630 

LABEL IN PROC (MOVE) 

418 426 


LABEL 

721 

LITERALLY 

'■OlH-' 

551 


LITERALLY 

"ODH- 

4 5 

69 

161 468 

694 

LABEL 

196 

BYTE 

1 18* 


493* 499-«- 

INTEGER IN PROC (MOVE) 

397* 399 402 405 

414* 414 419* 419 

427* 427 

INTEGER IN PROC (MOVE) 

399* 400 401* 401 

408 410 412 

INTEGER IN PROC (MOVE) 

402* 403 404* 404 

408 410 

INTEGER IN PROC (MOVE) 

405* 406 407* 407 

412 

LITERALLY •'OFFFOH' 

61 66 188 194 

PROCEDURE IN PROC (ACTION) 
- STACK=0002H 
507 

LITERALLY 'OlOH'- 
150 

I NTEGER I N PROC ( MOVE ) 


281* 

306 

333* 

334* 

343* 

347* 

354* 

358* 

365* 

366* 

375* 

379* 

386* 

390* 

395 

416 


422 438 457* 457 

430 464* 464 466 

INTEGER IN PROC (MOVE) 
282* 317 336* 337* 

342* 346* 355* 359* 



PL/M“S6 COHPILER NC M/C CONTROLLER 16/02/86 

CROSS-REFERENCE LISTING 


PAGE 22 


8 017DH 

575 101 IH 

321 0A6BH 
12 

228 0058H 

228 005AH 

228 005CH 


368* 369* 374* 378* 

387* 391* 396 423 

429 442 

10 DIGIT BYTE ARRAY(IO) DATA 

40 DIGITNO PROCEDURE IN PROC (GETNEWC 

-ODE) STACK=0002H 
591 627 

DONE LABEL IN PROC (MOVE) 




286 

295 

303 314 


DSRDY 

. . LITERALLY ' 

OSOH-' 

2 

DX 

. . INTEGER IN 

PROC (MOVE) 



239* 

244* 248 251* 



251 

274 

282 283 



285 

287 

296 304 




447 

448 454 



461 



2 

DY 

. . INTEGER IN 

PROC (MOVE) 



240* 

245* 253 256* 



256 

274 

281 283 



285 

296 

315 446 



448 

451 

461 

2 

DZ 

. . INTEGER IN 

PROC (MOVE) 


241* 246* 258 261* 

261 


13 

4 

003BH 

4 

0054H 

6 

013AH 

o 

CO 

lOOFH 

716 

0036H 

713 

0028H 

232 

0062H 


5 

11 009 IH 1000 


EOB. . . . 

25 ERRl . . . 

24 ERR2 . . . 

27 ERRS . . . 

EX ... . 

EXIT . . . 

EXTLOOP. . 
2 F 

FALSE. . . 

FILEDATA . 


LITERALLY "SBH' 

BYTE ARRAY (25) DATA 
217 

BYTE ARRAY (24) DATA 

BYTE ARRAY (27) DATA 
672 

LABEL IN PROC (GETNEWCODE) i 
654 

LABEL 98 527 

722 

LABEL 105 i 

INTEGER IN PROC (MOVE) i 

275* 306* 306 307 i 

317* 317 318 447* 

451* 454* 457 463 


LITERALLY 

-OOOH'- 

52 

92 

117 234 

235 

236 

237 362 

491 

499 

505 

BYTE 

ARRAY (1000) 

97 

99 

100 101 
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10 000 AH 


9 008FH 

233 0078H 

233 007 AH 

63 0158H 

94 0205H 

574 0F3CH 
618 IICIH 

210 07BAH 

9 0088H 


233 006CH 

9 008EH 

20 04FDH 
95 0505H 

79 0504H 


FILEINDEX. 


1 FL 

2 FX 


2 FY . . . • 

56 GETCHAR. . 
109 GETDATA. . 
213 GETNEWCODE 
228 GETNGSFTM. 


;8 HOLD 

1 I. . 


2 II 
1 II 


1 INCREMENTAL. 
1 IND. . - ■ • 
1 IND. . . • . 


137* 

142* 

147* 158* 

165* 

182* 

688 


WORD 


97 

99 

100 

101 

108* 

108 

111* 

111 

114* 

129* 

138* 

138 

143* 

143 

148* 

148 

152* 

152 

153 

154* 

166 

168* 

168 

172* 

178 

687* 

688 

697* 

697 


BYTE 


97 

104* 

119* 




INTEGER IN 

PROC 

(MOVE) 

330* 

398 

436 


INTEGER IN 

PROC 

(MOVE) 

331* 

398 

440 


PROCEDURE STACK= 

=OOOCH 

134 

717 




PROCEDURE STACK=0002H 

712 

procedure STACK=0016H 

713 

PROCEDURE IN PROC (GETNENC 
-ODE) STACK=0006H 
645 649 

procedure in PROC (ACTION) 
- STACK=0002H 


525 



BYTE 


88* 

89 

91 

120* 

123 

211* 

212* 

213 

471* 

471 

473 

481* 

482 

510* 

510 

512 

519 

520 

522 

620 

656 


INTEGER IN 

PROC 

324* 

326 


BYTE 


577* 

592 

602 

628 

BYTE 


115* 


503* 505* 

BYTE IN PROC (GETDAI'A) 
96* 107* 107 

BYTE IN PROC (OUTSTRINb) 
80* SI S2 S3* 
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83 


15 

04F9H 

1 

INDEX 

BYTE 

585* 585 





586 606* 

606 , 6*21*^ 





62 1 622 

635# 635 





651* 652 

674* 674 

*;;:»*z* 

00B5H 

93 

INITIAL8251. . . 

PROCEDURE 

STACK=0002H 





704 


113 

0272H 

88 

INITIALDATA. . . 

PROCEDURE 

STACK=0002H 





705 710 


31 

0096H 

31 

INITI ALPORTS . . 

PROCEDURE 

STACK=0002H 





703 


68 1 

12BFH 

i ^ 

INITPLOTTER. . . 

PROCEDURE 

STACK=0016H 





711 


23 

007 IH 

37 

INITPORT .... 

PROCEDURE 

STACK=0002H 





702 





INPUT. ..... 

BUILTIN 

51 





59 64 

66 188 





194 211 





INT. . . . . . . 

BUILTIN 

602 





631 


2 

OOOOH 

10 

INTVECTOR. . . . 

POINTER ARRAY (5) 

9 

0089H 

1 

.1 ....... 

BYTE 

582* 603* 





603 604 

607 619* 





632* 632 

633 636 

233 

006EH 

2 

JJ 

INTEGER IN 

PROC (MOVE) 





325*^^* 327 


9 

008AH 

1 

K. . . . . . . . 

BYTE 

583* 620* 





677 


9 

008EH 

1 

L 

BYTE 

633 644* 





648*^^’ 





LAST 

BUILTIN 

88 

3 



LF . . . . . - - 

LITERALLY 

'OAH^ 





4 5 

74 161 





469 695 

700 

ISO 

0187H 

35 

LIMITERR .... 

BYTE ARRAY 

(35) IN PROC (ST 





-OREFILE) 

DATA 





181 


20 

04FEH 

1 

LINEAR ..... 

BYTE 

1 1 6# ' ■ 279 . ■ 





491* 493* 

708 

0019H 


LOOP . .... - 

LABEL 

719 

134 

02EAH 


LOOP ...... 

LABEL IN PROC <STOREFILE) 





162 185 


585 

104FH 


LOOPl. . . . . . 

LABEL IN PROC (CODECOORD) j 





598 601 

605 1 

621 

IIDIH 


L00P2 

LABEL IN PROC (GETNGSFTM) | 
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15 

04F9H 

1 

•rjy 

00B5H 

93 

113 

0272H 

88 

31 

0096H 

31 

J. 

12EFH 

12 

*2 S’ 

007 IH 

37 


2 

OOOOH 

10 

9 

0089H 

1 

2Sj3 

006EH 

2 

9 

008AH 

1 

9 

008BH 

1 


3 


180 

0187H 

35 

20 

04FEH 

1 

708 

134 

0019H 

02EAH 


585 

104FH 


621 

IIDIH 



INDEX 

INITIALS25L . 
INITIALDATA. . 
INIT I ALPORTS . 
INITPLOTTER. . 
INITPORT . . . 

INPUT. . . . . 

INT. . . . . . 


BYTE 

586 606* 

621 622 
651* 652 

PROCEDURE 

704 

PROCEDURE 

705 710 
PROCEDURE 

703 

PROCEDURE 

711 

PROCEDURE 

702 

BUILTIN 
59 64 

194 211 

BUILTIN 
631 


585* 585 

606 621* 
635* 635 

674* 674 

STACK=0002H 

STACK=0002H 

STACK=0002H 

STACK=0016H 

STACK=0002H 

51 

66 188 
602 


I NT VECTOR POINTER ARRAY (5 > 

J BYTE 582* 603* 

603 604 607 619* 

632* 632 633 636 

J. J INTEGER IN PROC (MOVE) 

325* 327 

K. BYTE 583* 620* 

677 

j_ BYTE 633 644* 

648* 

last BUILTIN 88 

LF ■ .... LITERALLY 'OAH'’ 

4 5 74 161 

469 695 700 

LI MI TERR BYTE ARRAY (35) IN PROC (ST 

-OREFILE) DATA 



181 


LINEAR .... 

. . BYTE 

116* 279 


491* 

493* 

LOOP 

. . LABEL 

719 

LOOP 

. . LABEL 

IN PROC (STOREFILE) 


162 

185 

LOOPl 

. . LABEL 

IN PROC (CODECOORD) 


598 

601 605 

L00P2. . . . . 

. . LABEL 

IN PROC (GETNGSFTM) 
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65'2 OF 44H 
128 004CH 

233 007CH 

233 007EH 

232 005EH 

9 OOSCH 
581 OICBH 
204 OOOOH 

5 006CH 

5 OOAOH 
5 00D4H 

5 0107H 

203 0050H 

12 

226 0819H 

232 0064H 

232 0066H 


LOW. . . ■ 

LP - . • • 

2 LSTBLK . . 

2 LX . . ■ • 

2 LY . . ■ • 

2 M 

1 M. . • • 

1 maxdigit 

2 MAXSPEED 

52 MESSl. . 
52 MESS2. ■ 
51 MESS3. . 
51 MESS4. . 

2 MISC . • 

M0DE8251 
1827 MOVE - • 

2 MX . . - 

2 MY . - - 


£‘ 34 - 

EUILTIN 207 

481 

LABEL IN PROC (GETNEWCODE) 
675 679 

WORD IN PROC (STOREFILE) 

' 146 * 172 ■ 

INTEGER IN PROC (MOVE) 

395-» 3P9 405 414 

415* 415 419 420* 

420 

INTEGER IN PROC (MOVE) 

896* 402 405 419 

421* 421 427 428* 

428 

INTEGER IN PROC (MOVE) 

224* 290 302 31o 

byte 5®^* 

byte in PROC (CODECOORD) D 

--.pi jft 604 

INTEGER IN PROC (ACTION) D 
-ATA 478 479 

BYTE array ( 52) DAfA 

byte array (52) DATA 

byte array (51) DATA 
176 

BYTE array (51) DATA 
716 

integer in PROC (ACTION) 
523* 524 526 528 

533 539 544 549 

554 559 564 569 

literally "OCFH' 

procedure in PROC (ACTION) 
- STACK=000CH 
500 513 516 521 

INTEGER IN F’RUC (MOVE) 

27 A* 301*- 301 304 

integer in PROC (MOVE) 
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232 0060H 

9 008DH 

220 0056H 

OOOOH 
216 07D6H 

206 0004H 

55 012EH 

72 0190H 

685 12CBH 
205 07A4H 


76 OIAIH 



2 N 

1 N 

2 N 

113 NCM 

12 NOTIMPLEM. . 

2 NUMBER . . . 

42 OUTCHAR. . . 

17 OUTCRLF. . . 

81 OUTFILE. . . 

22 OUT INTEGER . 

OUTPUT . . . 

46 OUTSTRING. . 

OVER . . . 

Pi A 


277* 312* 312 315 

INTEGER IN PROC (MOVE) 

278* 290 293* 293 

300* 300 302 311* 

311 313 463* 464 

BYTE 

WORD IN PROC (DELAY) 

221* 221 223 

PROCEDURE STACK=001CH 
PROCEDURE IN PROC (ACTION) 
- STACK=0016H 
518 570 

INTEGER IN PROC (OUTINTEGE 
-R) PARAMETER AUTOMATIC 
206 207 

PROCEDURE STACK=0008H 


68 

73 

74 

82 

263 

271 

272 

273 

291 

298 

309 

417 

424 

425 

430 

437 

441 

458 

459 

465 

468 

469 

470 

691 

694 

695 

699 

700 

PROCEDURE 

STACK. 

11 

o 

o 

o 

a 

70 

■85 

173 

707 


PROCEDURE STACK=000CH 
709 

PROCEDURE IN PROC (ACTION) 
- STACK=0004H 
487 547 


BUILTIN 

28* 

29* 

32* 

24* 

34* 

36* 

39* 

41* 

43* 

45* 

47* 

61* 

208* 

483* 

531* 

537* 

542* 

552* 

557* 

562* 

567* 


PROCEDURE 

STACK=0012H 

132 133 

176 181 

217 486 

546 672 

673 683 

706 716 

723 

LABEL IN PROC (MOVE) 

462 

LITERALLY 

■'0FFF9H-' 

28 552 

557 

BYTE 

25* 28 


050 IH 


1 PIABUF . 
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551* 551 

556 557 


552 556* 


21 



PIB 

literally -'OFFFBH' 



211 


0502H 

1 

PIBBUF .... 
PIC 

byte 26* 

literally '•OFFFDH'’ 




29 208 

22 

0503H 

1 

PICBUF .... 

BYTE 27* 29 

207* 208 

21 



PIS 

LITERALLY '•OFFFFH-- 
24 

19 



P2A 

literally '-offfsh- 
34 531 537 542 





562 567 

18 

04FAH 

1 

P2ABUF .... 

byte 33* 34 

530* 530 531 535* 





535 536* 536 537 





541* 541 542 561* 

561 562 566* 566 





567 

19 

18 

04FBH 

1 

P2B 

P2BBUF . . . . 

P2C 

literally ^offfah-- 
BYTE 

literally '’0FFFCH-' 

19 



36* 483 

18 

04FCH 

1 

P2CBUF . . . . 

byte 

482* 

19 



P2S 

PLTCHR . . . • 

literally •'OFFFEH'’ 

32 

BYTE ARRAY (4) IN PROL 

682 

OICCH 

4 

-TPLOTTER) DATA 


77 0004H 

211 07BDH 
699 130EH 

688 12D4H 

12 

474 0F3AH 
12 

13 


•2 PTR. . • ■ 

REP. . • - 
REPEX. - - 
REPLP. . • 
RESET8251. 


RET I . 
RXRDY. 


SCRNBLNK 


POINTER IN PROC (OUTSTRINg 
-) PARAMETER AUTOMATIC 
77 81 82 
label in PROC (HOLD) 

label in PROC (OUTFILE) 
690 

label in PROC (OUTFILt) 
698 

literally •^065H-' 

43 

label in PROC (MOVE) 
literally ^02H'' 

51 84 

literally -'OCH-- 
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4 

0002H 

41 

SIGNON 

229 

0507H 

1 

SIGNX 


0508H 

1 

SIGNY 

2*29 

0509H 

1 

SIGNZ 

203 

0052H 

2 

SPEED 

702 

17 

0003H 


START. ...... 

STARTADDR 

12 



STAT8251 

127 

02CAH 

372 

STOREFILE. . . . . 

TO 
/ w 

OOOOH 

1 

STR 

14 

0040H 

10 



16 

004AH 

2 

TEMP 




TIME 

203 

0054H 

2 

TOOL 

203 

OlAAH 

33 

toolmess 


TRUE . 


TXRDY. . 
UNSIGN . 


BYTE ARRAY (41) DATA 
706 

BYTE IN PROC (MOVE) 

234* 250* 264 

BYTE IN PROC (MOVE) 

235* 255* 267 

BYTE IN PROC (MOVE) 

236* 260* 270 

INTEGER IN PROC (ACTION) 
476* 478 479* 479 

480* 481 

LABEL 724 

LITERALLY ^OOOOH-' 

17 

LITERALLY ''0FFF2H-- 
39 41 43 45 

47 51 59 64 

PROCEDURE STACK=0016H 


708 

BYTE BASED (PTR) ARRAYd) I 
-N PROC (OUTSTRING) 

81 82 

INTEGER ARRAY(5) INITIAL 
602* 609 610 611 

612 613 631* 638 

639 640 

INTEGER 608* _ 

609* 6 1 0* 6 1 1 * 61 2* 
613* 616* 616 637* 

638* 639* 640* 678 

BUILT IN 

42 44 46 48 

222 292 299 310 

INTEGER IN PROC (ACTION) 
477* 487 547 

BYTE ARRAY (33) IN PROC (AC 
-TION) DATA 486 


546 

literally "OFFH-- 


53 

90 

115 

116 

118 

250 

255 

260 

493 

496 

498 

503 

589 

625 

655 


LITERALLY 

-OlH' 



59 

BUILT IN 
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Z9 


7 

0170H 

13 

VALIDFN 

6 

0155H 

27 

WARN 


0074H 

2 

X . 

227 



XI 

• 7 ' 7 ’7 



X2 

*700 

09C4H 


XALSO 

233 

0070H 

2 

XC 

414 

230 

0D76H 


XINC 

XMINUS 

230 



XPLUS 

419 

0D96H 


XYINC. ...... 

233 

0076H 

2 

Y 

227 



Y1 

227 



Y2 

309 

0A16H 


YALSO 


007 2H 

*7 

YC 


4S1 

BYTE ARRAY (13) DATA 
88 89 

BYTE ARRAY (27) DATA 
673 

INTEGER IN PROC (MOVE) 

328* 335 338 352 
367 370 384 395 

416* 416 422* 422 

432 436 438* 438 * 

LITERALLY ^C0DEPAST(2) '■ I 
-N PROC (MOVE) 

239 326 328 398 

431 

LITERALLY CODENOW ( 2 ) •- IN 
- PROC (MOVE) 

239 244 330 398 

431 

LABEL IN PROC (MOVE) 

308 316 320 

INTEGER IN PROC (MOVE) i 

326* 335 338 352 

367 370 384 395 ( 

LABEL IN PROC (MOVE) ' 

LITERALLY ■'30H-' IN PROC ! 


-MOVE) 265 

LITERALLY /50H-' IN PROC 
-MOVE ) 266 

LABEL IN PROC (MOVE) 

409 413 

INTEGER IN PROC (MOVE) 
329* 332 340 350 

364 372 382 396 

423* 423 429* 429 

434 440 442* 442 

LITERALLY •' CODER AST ( 3 ) ^ 
-N PROC (MOVE) 

240 327 329 398 

432 

LITERALLY •' CODENOW ( 3 ) •' 

- PROC (MOVE) 

240 245 331 398 

433 

LABEL IN PROG (MOVE) 

297 305 319 

INTEGER IN PROC (MOVE) 
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327* 332 340 350 

364 372 382 396 

LABEL IN PROC (MOVE) 

411 

LITERALLY ''20H-' IN PROC 
-MOVE) 268 

LITERALLY '■40H'- IN PROC 
-MOVE) 269 

LITERALLY " CODEPAST ( 4 ) ^ 
-N PROC (MOVE) 

241 

L I TERALLY ^ CODENOW ( 4 ) •- 
- PROC (MOVE) 

241 246 


MODULE INFORMATION; 

CODE AREA SIZE = 131CH 4892D 

CONSTANT AREA SIZE = 01 DON 464D 

VARIABLE AREA SIZE = 050EH 1294D 

MAXIMUM STACK SIZE = OOlCH 28D 

798 LINES READ 
0 PROGRAM WARNINGS 
0 PROGRAM ERRORS 

END OF PL/M-86 COMPILATION 


427 0DD2H 

YINC 

230 

YMINU 

230 

YPLUS, 

227 

Z1 . . 

227 

Z2 . . 



REFERENCES 


1. McGlynn, Daniel, R., 

'Modern microprocessor system design : sixteen bit 
and bit slice architecture', 

John Wiley and Sons, Inc., New York, 1980. 

2. Childs, James J., 

'Numerical control part programming* , 

Industrial Press Inc,, New York. 

3. Roberts, Arthur D., et al., 

'Programming for numerical control machines', 
McGraw Hill Book Company, New York, 1978, 

4. Intel Corporation, 

' Component Data Catalog-1981' , 

Intel Corporation, Santa Clara, CA, 1981. 

5. Intel Corporation, 

*SDK~86i MCS-86 System Design Kit User's Guide' , 
Intel Corporation, Santa Clara, CA, 1978. 

6. Bianculli, Anthony J,, 

'Stepper motors: Application and Selection* , 

IEEE Spectrum, Dec. 1970. 

7. Electronics Industries Association, 

'F.TA S tandard RS~244A' , 


Electronics Industries Association, USA, 1967. 


8 . Bergren C. , 

’ A Simple Algorithm for Circular Inteipolation* . 

Control Engg., Sep. 1971, pp 57-59. 

9. Yoram Koren, 

'Computer Control of Manufacturing Systems*. 

McGraw Hill Book Co., New York, 1983. 

10. Yoram Koren, 

'Interpolation for a Computer NunBrical Control System', 
IEEE Trans, on Computers, Vol. C-25, No.l, Jan, 1976. 

11. Yoram Koren, Masory 0., 

'Reference Pulse Circular Interpolators for Q4C Systems*, 
ASME Journal of Engg. for Industry, Vol. 103, No.l, 

February 1981, pp 131-136. 

12. Mayarov F.V., 

'Electronic Digital Integrating Computers - Digital 

Differential Analyzers' , i 

' ' ' f 

Illife Book, London, England, 1964. i 

, 

12 . and Yoram Koren, 

'Reference Word Circular Interpolators for CMC Systems*, 
Trans. ASME Journal of Engg. for Industry, vol. 104, 

Nov . 1982 . 



